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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


progion 


Numéro 23 

Educatif : TABLORIC. P/mt Formaté 

- Suing : commandas graphiques - 
Sauvetage d'ur p- -g-amme - Cal¬ 
culs de r OR IC—Tirâmes et collages 

- Casse- bnques - clipping. 


"Pour les seuls numéros encore 
disponibles en mai 1987" 


vous les objets tractais ? Le 
Devin : chirologie ou pu ? Un jeu : 
Frog Panic PojéT lister un program¬ 
me à partir du MtfltyEL (et de la 
carte série) : U LIST. Accordez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : OP 550 et Brother Ml009 
(Jasmin primer). Lister FEPROM du 
Microdisc. 


rORIC. Essai de la tablegraphique 
GRAPHISCOP Le partage mé¬ 
moire de rORIC. Utilitaires pour 
vous plaire (2).4rU^HMonlteur- 
Assemblaur Compte bancaire 
(suite et fin). 


Numéro 6 

Essais de l'XL DOS. AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la cane 8 
E/S MAOECO. VOICE : ORIC 
parle dans interface RENUM-OES- 
TRUC renumivaron et suppression 
de lignes Basic. Les Interrup¬ 
tions : une horloge. Master-mir>d : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MCRODISC. La 
Jasmln-Printer (Brother M 1009) à 
l'essai et recopie d'écran pour œtte 
imprimante. 


Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (fin) Calculs dans 
N - Dossier TEUjffl«T - Mini- 
Print : éditeur M bandérolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 


Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 uQjogidel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de rORIC. Utilitaires pour vous 
plaire (3). Crée^UM' fenêtres sur 
ORIC. MICRODISC et JASMIN: 
ils communiquenl City on RekJ : 


Numéro 19 

Léonard : fin de l'utilitaire création 
graphique Modifications de rAT- 
MOS et du M1CR00ISC. Un mini- 
interpréteur F miecilon du Hl- 
MEM. Le tri M langage machine 
Jeu éducatif : CUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC Compte 
bancaire :gérez-le sur JASMIN Uti¬ 
litaires pour vous plaire (4). 


Numéro 25 

Test : le Jasmin-PC^£es fichiers 
dont tout le monde parle - Ecriture 
stylée sur MCP uO Jeu de la vie - 
Rem color - En savoir plus sur FT 
DOS - Data ^^>RIC à 2 ROM - 
MUSIC(I) 


Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs an langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de «acteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour dnonzon des Monl- 
taurs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 


Numéro 15 

Une imprimante à l'essai : la MT 
SOS. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 258 
couleurs de Mcrolutur. Editeur de 
secteurs sur Jasmin, MUSICORIC 
pour que rORJC-1 devienne musi¬ 
cien. Carte série pour liaison avec 


Numéro 27 

Fenêtres — 
soft - TDK 
cassette — 


RS 232 par 
m de disquette à 
r é Paris 121. 


Numéro 20 
CALCULAT» 
PUISSSANG 
cran pour 
préteur Basic 


rc d'essai - 
Recopie tfé- 
80 - Mini Inter- 


Numéro 28 

ORIC Hippit 
Surveillez vi 
déroulants 
togrammeS^ 


iu de bord — 

— Les menus 

- Tracé d'his- 


Numéro 21 

Les interruptions ^Animation gra¬ 
phique en 3 D - Jeu : Singerie (1) - 
SEDLTTIL pouTSJl utiliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Butter soft po^mpnmante - Super 
recope d'écran. 


Numéro 29 

A vos mesw 
— Sortie sol 
Moniteur a 
Label - M 


Bug pour Jasmin 
M- The car war — 
^STRAT Goto 
imes (21. 


Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de récran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logioel dfcpplication de 
la carte série, limai. Recopia ra¬ 
pide sur Imprtbafle mode texte 
Ecriture évolué#- LEONARD : utili¬ 
taire de dessin (1). Fichas de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquettes de cas¬ 
settes pour GP 50 Catalogue 
amélioré sur Jasmin 


Numéro 10 

Essai du modem TONIC. Le Basic 
Français UulilajfM pour vous plaire 
(t). Modifications du MONITEUR 
1.0 de LOfflblélJS CROCKY: jeu. 
Compte ftneaire : gérez-le sur 
MICRO-DISC (1). Compatibilité DTL 
2000 et JASMIN. 


Numéro 30 

Structure d| 
et Dr Agonj 
Calculs ei^ 
turbo - M 


■RAT - Don Jean 
B 80.colonnes - 
louante - Clavier 
imes 13). 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants - MUSICORIC ei 
JASMIN - J0|k Mènes (2) - 
SWAP OVEfWr'^F Diététique : 
mieux s'alimenta) •fthéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique — Animation gra¬ 
phique 3D. 


Les articles et programmes rappelés 
ci-dessus ne forment que l'essentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter è compléter votre collec¬ 
tion de THEORIC 


Numéro 11 

Hors-série t 
programme! 


'd'une multitude de 
us genres. 


Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


Numéro 18 

Un drive 3"1/2 à Triphonie 
fORC devient orgue. Connaissez- 
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32 
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137 
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40 

4é 
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nion» expnmée» n'engagent que la r»»pon»abilité 
de leur» auteur». Le» datèrent» montage» présentés 
ne peuvent être réalité» que dan» un but pnvé ou 
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s'appliquent également au* logiciels publiés dan» 
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VENTE AUX COLLECTIVITÉS : numéro réservé : 48.86.92.84 



22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h. LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 




SYNTHÉVOC 1 


PROMOTION 




□ moniteur couleur . 


2490 F 


□ atmos.990 F 


Le lecteur disquette conçu par ORIC FRANCE pour 
l’Atmos. 

□ lect.disq. MICRODISC. 2290 F 




• Tète d'impression 9 aiguilles 

• Vitesse d'impression de 100 cps en mode listing 
et 16 cps en NLQ 

• Niveau de bruit inférieur à 52 dB 

• Entrainement du papier par friction ou traction 

• Plusieurs styles de caractères: 

double largeur, gras, double frappe, compressé, italique, 
superscript, subscript, inverse et souligné 

• Marge et espacement ligne réglables par commandes 
logiciel. 

□ imprimante SEIKOSHA SP 180 . 2190F 



Le "must* pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d’utilisation et la qualité 
"top niveau’ des résultats obtenus (ex options : faire 
des points, traits, boites.cercles, texte, remplir. "zoom"....) 
CJ graphiscop .. 990 F 

INTERFACE 



Cette interface va cous permettre de transformer votre 
moniteur couleur en T V. 

□ interface T.V. 1490 F 



Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

□ magnétophone. 380 F 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F 


□ trace dump 

□ oric mind 

□ guerre des couleurs 

□ ciros 

□ fromage 

□ jogger 
□cal oric 


□ le lièvre et la tortue 

□ le monde végétal 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheton s rage 

□ centipède 


□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengoric 

□ finances 

□ copy écran (pour GP 100) 


□ calculus 

□ gestion bancaire 

□ budget familial 

□ caractor 

□ guerre des couleurs 


LOGICIELS CASSETTES 

Indiquez-nous en le soulignant un (ou deux) titres de remplacement en cas de rupture de stock. 



185F 


125 F 

□ ludico . 

140 

□ vision. 

130 F 

□ clovis 1 (Jeu d'échecs) 

150 F 

□ macadam bumper (flipper) 

165 


105 F 

□ cobra. 

105 F 

D méfies toi de méphisto . 

95 

□ zorgon's rovenge 

115 F 

□ colorie. 

95 F 

□ métholoto. 

140 

□ oric base (anglais) 

125 F 

□ 0 bug (français). 

140 F 

□ microgéo. 

140 

□ orthocrack vol 1 

175 F 

□ DAO 

155 F 

□ mission delta (sim vol) 

125 

□ orthocrack vol 2 

175 F 

□ dam buster. 

115 F 

□ montségur. 

145 

□ orthocrack vol 3. 

175 F 

□ damas (jou dames) ... 

125 F 

□ moria . 

115 

□ outimatic 1 . 

125 F 

□ dangeureusement vôtre 

170 F 

□ mots croisés . 

120 

□ playground 21 . 

95 F 

□dedal . 

110 F 

□ musirama . 

140 

□ rabbit 

105 F 

D détective story. 

160 F 

□ nessy . 

95 

□ rat splat . 

105 F 

□ dialogue. 

125 F 

D formule 1 . 

140 

□ saga. 

. 150F 

□ digger . 

100 F 

□ galaxian . 

115 

□ starter 3D 

135 F 

□ dit..? d'ac! (sc nat 5e) 

95 F 

D gestion de stock 

145 

□ System' animation. 

140 F 

□ dit..? d'ac! (sys auteur) 

95 F 

□ ghost gobbler 

105 

□ tekms . 

125 F 

□ don juan . 

150 F 

[ 1 gubbie 

115 

□ terminus. 

125F 

□ don t press letter Q . 

120 F 

D hades . 

255 


155 F 

□ dossier G . 

145 F 

□ insect msamty. 

100 

□ le fer d’amnukor. 

195 F 

□ draughts . 

100 F 

□ intox et zoé . 

140 

□ le général. 

120 F 

D élysées . 

145 F 

□ karaté . 

110 

□ le masque d'or. 

155 F 

□ 3 D fongus . 

140 F 

Cl l'aigle d or . 

180 

□ le secret du tombeau 

145 F 

□ a.l.ni. 

135 F 

U la cité de cristal 

150 

□ nowolnick puuzzle ... 

100 F 

□ annuaire . 

125 F 

□ la flûte inca . 

125 

□ lissage de courbes . 

125 F 

□ assimil (anglais. 

275 F 

□ backgammon . 

125 


105 F 

□ basic étendu 

135 F 

1 ! encounter . 

105 


299 F 

□ brique à brac. 

110 F 

□ catégorie . 

110 

□ lorigraph. 

299 F 

□ business man . 

145 F 

□ cheops 

140 

□ loritel . 

399 F 







LIVRES 




□ oric et son micro procès. 95 F 

□ communi. avec oric — 

145 F 

□ Toric à nu . 

151 

□ program. pour oric .. 

85 F 

□ interfaces pour oric 

59 F 

□ nouveaux jeux atmos . 

88 

□ manuel réf Tl . 

138 F 

□ 56 progr. sur oric. 

78 F 

[ î jeux graph. atmos . 

95 

D manuel réf T2 . 

120 F 

□ T DOS et ses fichiers . 

185 F 

□ mieux program. sur oric 

110 

□ jeux en basic atmos . 

49 F 

□ apprenez élect.sur oric 

110F 





PROMOTION 





□ lot n° 1 : triathlon 

aa^t 

□ lot n° 3 : ludico 

J35T 

macad. bumper (flip ) 
terminus (aventure) 

250 F 

métholoto 

DAO 

325 F 

□ lot n° 2 : karaté 

-4-Te-r 

□ lot n° 4 : clovis 1 (échecs) 

A W 

mission delta (simul.) 
terminus (aventure) 

260 F 

musirama 
outimatic 1 

315 F 


pour l'achat de 2 lots: 5 % de remise 
pour l'achat de 4 lots : 10 % de remise 


Il ne lui manque que la parole*, synthé V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampaan»» ' 

□ synthétiseur vocal. 5SQ.F 240 F 

__*»à 

Rallonge Péritel 
Ne soyez plus collé â l’écran, (prise OIN è 6 broches). 

□ rallonge péritel.95 F 




Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 






* 0 ’ 






Interface tous jeux 
Grâce â cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 

□ interface joystick tous jeux. 365 F 


□ joystick compétition 
PR05000 .... 170 F 



□bloc alim. ORIC.180F 

□alim. 12Vpourpéritel. 75F 

□rallonge de bus 1 slot.140 F 

Cassettes vierges C20 

□ les 5. 45 F 

□ les 10 80 F 

□ cible imprimante.160 F 

□ stylosMCP40 . 75 F 

□ rouleaux papier MCP40 (par 4). 75 F 

□ disquette 3". 31F 

□ disquette 3” (par 10). 275 F 



OFFRE SPECIALE ! 

Nous reprenons 500 F votre ORIC 1 ou ATMOS* 
pour l'achat d'un ATARI 520 STF avec moniteur monochrome 




Que vous recherchiez votre premier nuao ou 
que vous auz envie de franchir une étape décisive 
après avoir dfhuté avec un mxrcKinlmateur 8 bits, 
dtoissscz I Atari 520 STF. Cest une valeur sûre. 

Du ordmaleur de Tannée aux USA. devenu 
rapidement le best-sefler de la rraoo en Aflcmaff*. 
<lé)i plébeoté en France. \A tari 520 STF est , 
Forchnateur le plus innovateur du marché. 

Celui dont vous tirerez le maximum de plan* 

Avec T Atari 520 STF, vous aDa de 
révélation en révélation. 

Puissance formidable avec une U.C de 520 Ko. 

Facilité (f utfisabon avec la souris et le système 
d'exploitation GEM, 


Confort d'uùltsabon avec le mulûfenétrage. 
Performances graphiques cxcepfcxindles. 
Richesse d'une pakttr de 512 couleurs. 

Capacités sonores éclatantes et interface MIDI 
Bien (f autres révélations vous attendent aux 
commandes de votre ordinal nu 

Y. Atari 520STF, c'est le paphàme dans 
toute sa finesse. U couleur dans toute sa splendeur, 
la musique dans tout son édaL 

Créativité ou récréation. T Atari 520 STF, 
c'est la mao ptnr dans toutes ses dimensnns. 


•IMPORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l’ordinateur. 
□ ATARI 520 STF + moniteur monochrome : 4990 F - 500 F .4490 F 


COMMENT COMMANDER : Je possède □0RIC1 U ATMOS 

Cocher le(s) article(s) dèsiré(s) ou laites en une liste sur une feuille à part. Faites le total + frais de port (20 F pour achats intérieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F - 80 F pour 
loul achat supérieur a 2000 F). 

NOM : _ PRENOM :_ TEL :- 

ADRESSE :___CODE POSTAL : -VILLE : - 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20. rue de Montreuil 94300 VINCENNES 


rdscuu 



















































































































































Eh ! Dites ! Oh ! 


A rrêtez ! Y-en-a plus ! Stop ! N'envoyez plus de chèques pour commander des 
logiciels d'ERE Informatique... Vous nous avez dévalisé et nous n'en avons plus 
un seul en stock. On dirait que ça vous plait, ce genre d'opération. Et les 
abonnés... Ils ont payé encore moins cher ! Quand on pense qu'il y a des lecteurs 
qui nous lisent depuis le numéro 1 et qui attendent encore pour s'abonner. Attendre, toujours 
attendre... Il y en a sûrement qui roulent toujours en draisienne et n'ont pas encore découvert la 
bicyclette! Enfin, tant pis pour eux... 

M'éditez... ou plutôt méditez là-dessus pendant vos chères vacances. Nous, on vous prépare 
un numéro spécial pour la rentrée avec 16 pages de plus. Ne le ratez pas ! 

Bonnes vacances... 


ORDIELEC 

19, rue Hippolyte Flandrm 
69001 LYON 
Tel. 78 27.80.17 

p ar minitel ûe 12-15 a i4tiOQ 
“i ae ' 9h30 a iQhOO a ce même numéro | 

SPÉCIALISTE ORIC 

I 

Démonstration Telestrat 
en permanence 

Composants connectique 
et cables. 

Compatibles IBM. 


COMMANDE ANCIENS NUMEROS 


(valable jusqu'à épuisement des stocks) 


Numéros 6à21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1-2-3-4-5-8-9-14-26 
NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au-dessus 


|Ci-joint, chèque bancaire ou postal de 



5 



















ABONNEZ 

VQUSL. 

-VALAWeWU»”,*«J co *, t 

(attention • l u _ ^ \> or dre a® 

cwoln. un **»• £ raCO «. U. H— » PO " 

« ' Wltlo". SO * sl70 ,,W <m >0l(e 

mote sur le P roC 1 5 du mois- 

Pour être pris parvenir ovon* » . 

NO^ .. . 

Adresse . ville . . 

Code P° s,al Signature - ' 7 O F 

Sonnèrent 6 * . 

e^rrr^-r---' 

(6 disquettes) ^ ^— 



S0/?4C® 


LES DISQUETTES DE THEORIC 


N'usez plus le bout de vos doigts à saisir les listings de la revue. Nous vous proposons, réunis sur une même 
disquette, tous les programmes publiés dans deux numéros de THEORIC (consultez, la liste ci-dessous pour 
commander ; aucun échange ne sera accepté). Les disquettes n° 1 à 14 n'existent qu'en format 
JASMIN. A partir de la disquette n° 15, elles sont disponibles en format JASMIN ou SEDORIC. Bien préci¬ 
ser lors de fa commande. 

Prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette d abonne) ; 1 46 F pour les 

lecteurs non-abonnés. -ruc^ 

AVERTISSEMENT IMPORTANT : les programmes stockés sur ces disquettes sont tels que parus dans THEO¬ 
RIC. A vous de les adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N" 1 THEORIC n° 4 et 5 

N° 2 THEORIC n° 6 et 7 

N" 3 THEORIC n° 8 et 9 

N 0 4 THEORIC n° 10 et 12 

N° 5 THEORIC n° 13 et 14 

N° 6 THEORIC n° 1 5 et 1 6 

N° 7 THEORIC n° 17 et 18 

N 0 8 THEORIC n° 1 9 et 20 

N° 9 THEORIC n° 21 et 22 

N 0 10 THEORIC n° 23 et 24 

N° HS THEORIC HORS SERIES (n° 1 1) 

N° 1 1 THEORIC n° 25 et 26 

N° 12 THEORIC n° 27 et 28 

N° 13 THEORIC n° 29 et 30 

N° 14 THEORIC n° 31 et 32 


ATTENTION ! Il n'y a pas de progra««e TELESTRAT sur cette disquette 



VOLUME : 

T031&32 








U 

DEHOCLEA.BAS 

S 

U 

GESTBRK 

.BAS 

S 

U 

JACKPOT .BAS 

S 

U 

LIERAI 

.BAS 

S 

U 

JP .BIN 

S 

U 

LIBRA1 

.BIN 

S 

U 

LANCEUR .BAS 

S 

U 

TABLES 

.BAS 

S 

U 

VERILIST.BAS 

S 

U 

BASIC+ 

.BAS 

S 

U 

MINILOGO.BAS 

S 

U 

HELIPORT.BAS 

S 

U 

COURRIER.BAS 

s 

U 

EDIT+ 

.BAS 

S 

U 

TEJTIHP .BAS 

s 

U 

CLEARER 

.BAS 

S 

U 

SUPTRON .BAS 

s 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


R 




Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, 
10, 1 1, 12, 13, 14. 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F par disquette car je ne suis pas abonné 

Soit au total la somme de F réglée par ché- 


NOM .Prénom 

Adresse. 

Code Postal -Ville . 




















TELESTRAT. Configuration de base comprenant : 

Unité centrale, lecteur de disquettes 3” double face, 400 K, 
langages Hyper-Basic et Télématic, système d'exploitation 

Stratsed, câbles pcritel, minitel et l’alimentation secteur. 

« 

Relié au minitel, Telestrat, devient “le Serveur le moins 
cher du monde” (Minitel magazine 02/87). 

Editeur de pages, d’arborescences et BAL intégrés. 


L’ensemble ORIC TELESTRAT 


3990 F 


NOUVEAU 


STRATORIC EST ARRIVE 


Il vous permet d’utiliser votre TELESTRAT en mode ému¬ 
lation Oric 1 ou Atmos, pour charger vos K7 ou vos dis¬ 
quettes Scdoric ou convertir XLdos ou Tdos. 

Transférez vos K7 sur disquettes, jeux, utilitaires... 

Trois ordinateurs en un : 

Oric 1, Atmos avec microdisc et Telestrat. 

Cartouche + Sedoric complet + manuel Atmos >- 

et notice d'emploi du STRATORIC 1 490 F 


As sem ble ur do uble passe 65Q2 
Télé-Ass en cartouche contient tous les 
mnémoniques du moniteur, et n’occupe 
pas l’espace utilisateur. 

Complet avec manuel : 


590 F 


— 


. 


Complément de l’assembleur, il vous 
révélera tous les secrets du s ystème . 

Le manuel développeur : 


190 F 


F1G-FORTH 500 mots, manuel très com¬ 
plet 75 pages. Intègre toutes les fonctions 
système du Telestrat, écran hires, son ser¬ 
veur, disques... 

Télé-Forth cartouche : 


490 
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EXTENSION RAM 64 K 


Ce pseudo disque de 64 Ko, charge 5 à 18 fois plus rapide¬ 
ment vos fichiers et programmes, n’inhibe pas les interrup¬ 
tions donc le micro ne s'arrête plus lors des accès disque. 
Livré avec une disquette de programmes pour installer votre 
disque virtuel et mode d’emploi. 


Cartouche RAM-64K 


690 F 


REPRISE DE VOTRE ORIC 

Pour l’achat d’un Telestrat, votre ancien 
Oric 1 ou Atmos, avec son alimentation 
et ses cordons, vous est repris pour la 
somme de : 690 F 


I HORLOGE TEMPS REEL 


Indispensable pour avoir l'heure, la date du 
jour même si le lecteur a été interrompu, la 
pile dure plus de deux ans, applications en 
basic, en serveur, jeux etc... 
avec manuel et listing 
de programmes. 


590 F 


PERIPHERIQUES ET ACCESSOIRES 


Microdisc supplémentaire 

Le Telestrat peut en avoir 4 . 1790 F 

Boîtier multiprint permet de connecter 
plusieurs Telestrat sur 1 imprimante 

modèle 4 voies sans câbles. 1450 F 

modèle 8 voies sans câbles. 1950 F 

Moniteur couleur 36 cm RVB + son. 2490 F 

Moniteur monochrome vert . 1150 F 

Modulateur N/B avec câbles . 345 F 

Câble péritel. 120 F 

Joystick Spectravideo. 95 F 

Souris pour TELESTRAT . 690 F 


Câble imprimante type Ccntronic . 

Disquette vierge 3". 

Câble moniteur monochrome 


BIENTOT DISPONIBLES 

PACKAGES RADIO AMATEURS 

RTTY et Morse + utilitaires. 

SSTV et Fac-Similé + utilitaires 
PACKAGES ELECTRONIQUES 
Apprendre l'électronique sur Oric . . 
Interfaces pour Oric . 


180 F 
39 F 
80 F 


390 F 
390 F 


NC 

NC 
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Le Micro-ordinateur Atmos. compact, performant doté 
d'un basic puissant, d'un synthétiseur musical, d’un gra¬ 
phisme en haute résolution en 8 couleurs, dispose d'une 
vaste gamme de logiciels, dans tous les domaines d'acti¬ 
vité : jeu. programmation, éducation, dessin, musique, 
etc... 

Il peut recevoir de nombreux périphériques, magnéto, lec¬ 
teur de disquettes, interface joystick, horloge temps réel, 
carte relais, etc... 

Livré avec 2 K7 de jeu, 1 K7 démo, 
câbles K7, peritel, alim et manuel 


990 F 


LECTEUR DK CASSETTES 


Spécialement conçu pour les micros, et en 
particulier pour l'ORIC Atmos, ce magnéto 
K7 est équipé d'un buzzer qui vous permet 
de suivre le déroulement de vos programmes. 
Il est doté d’un compteur pour repérer vos 
bandes et de prises DIN ou Jack pour la liai¬ 
son au micro-ordinateur. - 


350 F 


IXTFRFACF JOYSTICK 

PROGRAMMABLE 

Il vous permet d'utiliser vos jeux 
et programme avec un joystick à la 
place du clavier. 

11 se programme en appuyant sur 
la touche du clavier et en mettant la 
manette dans la position que vous 
souhaitez pour cette touche. 

Il permet également d'éviter dans 
certaines applications d'utiliser le 
clavier. 

Interface + manuel.... 350 F 
Joystick Spectravideo. 95 F 


/f 


I.FCTFl'R DF DISOl'FTTFS 3" POUR ATMOS 




Le Microdisc est doté d’un puissant système d'exploitation qui ajoute 
plus de 90 instructions complémentaires à votre Atmos. Fichiers séquen¬ 
tiels ou à accès directs, etc... 

Son contrôleur intégré peut gérer 3 lecteurs complémentaires. 

Les chargements de programmes ou de fichiers sont quasi instantanés 
(32 Ko en 2,5 sec). 

Vous pourrez transférer vos K7 sur disquettes, ou copier des program¬ 
mes écrits sous Dos Vl.l, XL dos ou Tdos grâce à l’utilitaire convi¬ 
vial Convert. 

NOUVEAU : Le Microdisc est maintenant livré en double tctes ce qui 
évite de retourner la disquette. 400 Ko en ligne. 

GRATUIT : Pour l’achat du microdisc, Oric vous offre la transfor¬ 
mation gratuite de votre Oric qui le dotera des dernières modifications, 
horloge renforcée, péritel alimentée, fiabilisation du charge ment K7... 


Microdisc + alim + Sedoric + manuel 


2690 F 






PERIPHERIQUES FT ACCESSOIRES 


Microdisc Esclave B.C.D sans alim. 1490 F 

Disquette Sedoric + manuel. 490 F 

Alimentation pour 2 Microdisc. 450 F 

Carte contrôleur seule (pour 4 lecteurs) . . 990 F 

Câble nappe 34c pour Microdisc. 120 F 

Transformation Oric 1 en Atmos FR .... 490 F 

Echange standard carte anglaise en état 
contre carte FR, péri-alim,garantie 1 an . . 450 F 

Moniteur couleur 36 cm RVB + son .... 2490 F 

Moniteur monochrome vert. 1150 F 

Câble péritel auto-alim. pour Oric FR . . . 150 F 

Câble moniteur Monochrome. 80 F 

K7 vierge C15 par 10. 100 F 

Disquette 3” vierge l’unité . 39 F 


Modulateur N/B avec câble Atmos. 345 F 

Imprimante Cosmos 80 . 2890 F 

Câble imprimante pour Atmos. 180 F 

Ruban de rechange pous Cosmos 80 . 100 F 

LIBRAIRIE 

Guide de l'Oric 1 . 95 F 

50 Programmes pour Oric 1 . 90 F 

Manuel de i’Atmos. 50 F 

L'Oric à nu F. Broche. 151 F 

Communiquez avec votre Oric . 145 F 

Interfaces pour Oric. 59 F 

Mieux programmer sur Oric. 110 F 

Apprenez l'électronique sur Oric. 110 F 
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= = LOGICIELS = = 


TELESTRAT 


ATMOS 


ORIC 1 


Disquettes sous Stratsed 


Dangereusement vôtre. 200 F 

Arcades N° 1 ! lanrier attack 
Super météor,Ultima zone 200 F 
Arcades N°2 Flight simul. 

Galaxian, Rat-splat. 200 F 

Télé-CHESS. 200 F 

Méphisto ( avent. FR )... 155 F 

Musirama (éducatiO. 195 F 

Clavidact (éducatiO. 185 F 

Télékube (Rubik’s). 200 F 

Nibbler (arcade). 190 F 

Défence Force (arcade)... 190 F 

Ludico (éducatiO. 205 F 

Metho-Loto (loto). 195 F 

StratMon (ass.désass).... 200 F 

Gestion d'adresses. 590 F 

Lisbal (gestion BAL). 1000 F 

Cartouches 

TELE-ASS + manuel. 590 F 

TELE-FORTH +ntanuel. 490 F 
STRATORIC +disc+man. 490 F 

ROMORIC 1. 200 F 

ROMATMOS. 200 F 

RAM 64 Ko +disc+man. 690 F 


Cassettes 

Méthode Assimil Anglais .. 250 F 
Méthode Assimil Espagnol 250 F 


Cours de Basic. 150 F 

Author (trait.de texte). 100 F 

J.Bond(Dang.vôtre arc/av). 150 F 

3D invaders (arcade). 40 F 

Chess II (réflexion). 40 F 

Defence force (arcade). 40 F 

I louse of death (aventure).. 40 F 
Kilbum encountcr (avent.). 40 F 
Novotnik puzzle (réflexion). 40 F 

Oric Munch (arcade). 40 F 

Rat-splat (arcade). 40 F 

Super breakout (arcade).... 40 F 

Super méteor (arcade). 40 F 

Ultima zone (arcade). 40 F 


Disquettes sous Sedoric 
Arcades N°1 l larrier attack 
Super météor, Ultima zone. 200 F 
Arcades N°2 Flight simulât. 

Galaxian. Rat-splat. 200 F 

J.Bond(Dang.vôtre arc/av). 200 F 
Méthode Assimil Anglais... 300 F 
Méthode Assimil Espagnol. 300 F 


Cassettes 

Acheron's rage (arcade).... 40 F 

Annuaire (familial). 40 F 

Assemb.desass(utilitaire).. 40 F 

Cam 3 (arcade). 40 F 

Casse-briques (arcade). 40 F 

Centipede (arcade). 40 F 

Chenille infernale (arcade). 40 F 
J.Bond Dang.vôtre(arc/av). 150 F 

Dico 5 (éducatiO. 40 F 

Dracula's revenge (arcade). 40 F 

Europe (géographie). 40 F 

Galaxians (arcade). 40 F 

Galaxion (arcade). 40 F 

Gastronom (arcade). 40 F 

Geofrance (éducatiO. 40 F 

Gencar (utilitaire). 40 F 

Gestion de stock. 40 F 

Godilloric (Arcade). 40 F 

1 larrier attack (arcade). 40 F 

1 lopper (arcade). 40 F 

I lyper master mind(refL).. 40 F 

Ice Giant (Arcade). 40 F 

Intertron (arcade). 40 F 

Invader.-, (arcade). 40 F 

Le protector (arcade). 40 F 

Orible (arcade). 40 F 

Oric-mon (utilitaire). 40 F 

Puissance 4 (réflexion). 40 F 

Starfighter (arcade). 40 F 

The ultra (arcade). 40 F 

Word process.(trt de texte). 40 F 


COMPATIBILITE DI S LOGICIELS ORIC 

Disquettes Sedoric: Oric 1 & Atmos, Telestrat avec Stratoric 
K7 Oric 1 : Atmos+Sedoric, Telestrat+Romoricl ou Stratoric 
K7 Atmos:Oric 1+Sedoric, Telestrat+Romatmos ou Stratoric 




ff KKCHKHCH.E.D'AVTFARS 

Si vous avez écrit un logiciel, rejoignez 
l’équipe Oric pour vous faire éditer. 

Si vous avez réalisé une interface géniale, 
elle peut vous rapportercontactez nous. 
Bref, si vous avez des idées que vous 
souhaitez partager avec les Oriciens, 
Ecrive/.-nous. Qu'on se le dise !!! 


PROCHAINEMENT POUR VOTRE ORIC 

Toute la gamme LORICIEL va être éditée par 
Oric intern. sur disquettes Sedoric et Stratsed. 

Packages RADIO AMATEUR, RTTY.SSTV. 
Fac-similé, Morse, Packet Radio sur disquettes 
Packages ELECTRONIQUES, 
apprendre l'électronique avec des kits 
d’interfaçage, des logiciels et manuels. 
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0RIC 

INTERNATIONAL 


39 RUE VICTOR MASSE 

75009 PARIS 

TEL. : 16 (1) 42.81.20.02 

TLX : 649385 F 

Minitel : 16 (1) 42.81.22.72 

Boutic’Oric ouverte du 

Lundi au vendredi de 9 h à 

,.t . 1 .. ta h ii lx h 


PAGE 3 


Bon de commande à retourner chez ORIC International 
Je désire recevoir les materiels ou logiciels suivants : 




13 h 


OTE 

DESIGNATION 

PRIX 

S/TOTAL 













Nom 

Adre 

Code 

Tclé| 

Mate 


TOTAL = 


+ PORT 35 F 

postal :. Ville :. 

ihonc :. 

riel possédé :. 

Si contre/rht 50 F 

A REGLER 


Signature : 


(Parents si mineurs) 























































































































NOUVEAU KIT ATMOS 

Possesseurs d'ORIC-1, ceci est 
pour vous ! Le kit de transformation 
ORIC-1 en ATMOS est complété. 
Auparavant, il se composait simple¬ 
ment du clavier et de la ROM de 
l'ATMOS et imposait donc un mon¬ 
tage de la part de l'utilisateur. 
Maintenant, c'est plus simple : l'ac¬ 
quéreur du kit de transformation se 
verra offrir un ATMOS neuf, avec 
les améliorations communes à tous 
les ATMOS français : horloge renfor¬ 
cée, chargement cassette fiabilisé 
et prise péritel auto-alimentée. 

Pour bénéficier de ces conditions, 
il suffit de retourner son ORIC-1 ac¬ 
compagné de son câble péritélévi¬ 
sion. 

Le prix de la transformation reste, 
lui, inchangé : 490 francs. 



L'interface joystick programmable 
est désormais compatible avec le Mi- 
crodisc. 

Rappelons brièvement son princi¬ 
pe : l'interface joystick programma¬ 
ble permet d'associer, par une pro¬ 
grammation très simple, une 
touche quelconque aux quatre 
directions et au bouton de tir du 
joystick. 

Cette interface permet donc d'utili¬ 


ser les joysticks avec tous les jeux, 
sans aucune restriction. 

En revanche, elle n’est pas compati¬ 
ble avec le Télestrat pour des rai¬ 
sons Hardware incontournables. Il 
est vrai que le Télestrat intègre en 
standard deux ports joystick. 

Pour les possesseurs de l'ancien¬ 
ne interface, le schéma de la modi¬ 
fication est donné ci-dessous. 

Son prix est inchangé : 350 francs 


MAIS QUI FAIT QUOI ? 


A l'heure des cartouches STRATORIC pour Télestrat, des SEDORIC permettant de lire les cassettes ORIC-1 ou 
ATMOS, etc, THEORIC vous propose ce petit tableau pour vous aider à vous y retrouver. 


Ordinateur : ORIC-1 

ATMOS 

ATMOS 

ORIC-1 

Télestrat 

Télestrat 

Télestrat 

Télestrat 

Périphérique : seul 

seul 

Microdisc 

Microdisc 

Stratoric 

romATMOS 

romORIC 1 

seul 

K7 ORIC-1 X 


(5) 

X 

X 


X 

(1) 

K7 ATMOS 

X 

X 

(6) 

X 

X 


(1) 

K70RIC-1/ATM0S X 

X 

X 

X 

X 

X 

X 

(1) 

disq. SEDORIC 


X 

X 

X 



(2) 

disq. SED. protégées 


X 

X 

(3) 




disq. dos VI.1 


X 

X 

(4) 




disq. XLDOS 


X 

X 

(4) 




disq. Randos 


X 

X 





disq. TDOS 

disq. TDOS protégées 


(4) 

(4) 

(4) 





X :compatible sans aucune manipulation. 

(1 ) : les programmes BASIC non protégés sont récupérables grâce à l'utilitaire K7DSK / BASSEQ / SEQHYP 

(2) : les programmes BASIC non protégés sont récupérables grâce à l'utilitaire BASSEQ / SEQHYP 

(3) : compatible selon le type de protection. 

(4) : les fichiers peuvent être convertis au format SEDORIC grâce à l'utilitaire CONVERT fourni avec le SEDORIC. 

(5) : grâce au programme ROMATMOS (fourni avec SEDORIC) qui transforme l'ORIC-1 en ATMOS sans microdisc. 

(6) : grâce au programme ROMORIC1 (fourni avec SEDORIC) qui transforme l'ATMOS en ORIC-1 sans microdisc. 

Fouillez-donc chez vos revendeurs, ils ont sûrement des stocks de cassettes ORIC-1 à brader]_ 


10 


















UN BEAU MARIAGE ! 

Ce vendredi 15 Mai a vu la régulari¬ 
sation d'une union jusqu'alors li¬ 
bre : le Microdisc et l'horloge 
temps réel viennent en effet de 
convoler en justes noces, après un 
passage devant les laboratoires de 
recherche d'ORIC où ils ont répon¬ 
du OUI. 

Aux dernières nouvelles, ils par¬ 
taient en voyages de noces au 
peek du midi.Souhaitons leur beau¬ 
coup de bonne heure ! 

Ce qui signifie (résumons-nous !) 
que l'on peut désormais utiliser 
sans problème une horloge temps 
réel avec son Microdisc favori (et 
son ORIC-1 ou ATMOS, of course). 
Rappelons que l’horloge temps 
réél garde l’heure, la date... même 
quand l'ordinateur est éteint, grâce 
à une pile et ce, pendant plus de 
deux ans. 

Prix : 590 francs (pour ORIC-1, 
ATMOS, TELESTRAT) 

MEUBLE POUR TELESTRAT 

ORIC International propose un mini¬ 
meuble en ébénisterie pour Téles- 
trat. Il permet de placer le Télestrat 
dans un tiroir rabattable, deux lec¬ 
teurs de disquettes, une alimenta¬ 
tion pour le Télestrat et 2 lecteurs 
de disquettes et ... tous les fils 
dans un boîtier compact qui, de 
plus, peut suporter le moniteur. 

Plus que deux fils sortent du meu¬ 
ble : secteur 220 volts et câble péri¬ 
télévision, l’interrupteur d'alimenta¬ 
tion est situé derrière le coffret. 

Prix : le meuble intégrant l'alimen¬ 
tation pour 2 lecteurs : 1300 francs 


TTC, (évite l'achat d’une deuxième 
alimentation pour un deuxième lec¬ 
teur de disquettes). 

L'acquéreur doit retourner son an¬ 
cienne alimentation Télestrat. 

A noter que ce meuble peut se ré¬ 
véler intéressant aussi pour les pos¬ 
sesseurs d'ORIC-1 ou ATMOS : un 
peu d'esprit bricoleur et de., scotch 
double face leur permettront d'y 
loger leurordinateurchéri. 

INTERFACE RS232 
POUR ATMOS/ORIC-1 
ET TELESTRAT. 

Vous avez une imprimante série ? 
Vous voulez vous connecter au mi¬ 
nitel ? ORIC International a ce qu'il 
vous faut. Une interface RS 232, pa¬ 
ramétrable en tous sens (de 50 à 
19200 bauds, 5, 6, 7 et 8 bits...) est 
désormais disponible pour ORIC-1, 
ATMOS (avec ou sans Microdisc) et 
Télestrat. 

Les applications sont nombreuses 
et, sur Télestrat, la présence de 
deux canaux séries permettent 
d'envisager des applications com¬ 
plexes de liaisons inter-ordinateurs, 
mini réseau, etc. 

Son prix : 390 francs chez ORIC In¬ 
ternational, disponibilité immédiate. 


MODEM 

Question à 790 francs : qu'est ce 
qui est noir, se branche sur toute la 
gamme ORIC et sur la ligne télé¬ 
phonique ? Réponse : un modem. 
Vous gagnez toute la considération 
de la rédaction de Théorie, c'est dé¬ 
jà beaucoup. 


ORIC International a, en effet, mis 
sur le marché fin Mai 87 un modem 
V23, connectable (avec une inter¬ 
face RS232) sur ORIC-1 et ATMOS 
(accompagnés ou non du Micro¬ 
disc) ou sur le Télestrat. 

Ses principales caractéristiques : 
mode Full Duplex 1200/75 (mode 
vidéotex : émulation minitel, etc.), 
mode Half Duplex 1200/1200 
bauds pour les échanges de pro¬ 
grammes. 

Attention ! Ce modem n'est pas re- 
tournable, c'est-à-dire qu'il ne fonc¬ 
tionne pas en mode 75/1200. Il ne 
peut donc fonctionner en serveur 
vidéotex. 

Le modem est disponible au prix de 
790 francs seul ou 1000 francs 
avec son interface RS 232. 

STRATORIC GRATUIT 

Jusqu'au 30 septembre 1987, 
ORIC International, dans son infinie 
bonté, offre pour tout achat d'un Té¬ 
lestrat une cartouche STRATORIC 
gratuite. 

Rappelons ce que contient le pac¬ 
kage STRATORIC : une cartouche 
permettant d'émuler le fonction¬ 
nent du SEDORIC (aussi bien en 
mode ORIC-1 qu'en mode 
ATMOS), une disquette master 
SEDORIC contenant divers utilitai¬ 
res, dont l'utilitaire de conversion 
des fichiers Jasmin et DOS vl .1 et 
un jeu d'arcade (MARC de chez 
PSS), le manuel du SEDORIC, le 
manuel de l’ATMOS et un manuel 
spécifique au STRATORIC. Ouf ! 
Pour les autres, STRATORIC est, 
bien entendu, toujours disponible 
au prix de 490 francs. 



LES DISQUETTES DE THEORIC 


A partir de la disquette numéro 15 (THEORIC n° 33 et 34), la 
version SEDORIC sera disponible, au même prix que la version 

JASMIN. 

N'oubliez pas de préciser lors de votre commande ! 
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80 COLONNES : 

ELLE ARRIVE ! 

La carte 80 colonnes, véritable Arlé- 
sienne de la micro Télématique Ori- 
cienne, sera disponible courant juil¬ 
let. 

Voici, c’est un scoop, ses caractéris¬ 
tiques en exclusivité planétaire, au 
moins. 

La carte se branche sur le bus d'ex¬ 
tension du Télestrat. Elle sera aussi 
disponible sur ORIC-1 et ATMOS, 
mais sans aucun logiciel exploitant 
ses caractéristiques (bien que le ma¬ 
nuel explique comment réaliser des 
drivers pour ces ordinateurs). 

Elle est livrée avec deux cartou¬ 
ches : une HYPER-BASIC et une 
Telematic. Ne vous effrayez-pas, 
grâce à la conception de Telemon, 
vos programmes, même en assem¬ 
bleur, seront entièrement compati¬ 
bles, pour peu évidemment qu’ils 
ne se servent pas trop des spécifici¬ 
tés de l'écran Texte du Télestrat. 
TELE-ASS marche, par exemple, 
sans problème (édition du source 
en 80 colonnes sur TELE-ASS, 
idéal pour commenter correcte¬ 
ment les sources) et les serveurs 
n’auront pas à être retouchés. 

La carte apporte deux nouveaux 
modes principaux : le mode 80 co¬ 
lonnes et un mode vidéotex 100 % 
compatible. Bien entendu, le mode 
haute résolution standard du Téles¬ 
trat est toujours disponible sans 
modifications, si ce n’est la dispari¬ 
tion des trois lignes de texte en bas 
de récran. 

Le mode 80 colonnes admet quel¬ 
ques attributs : soulignement, cli¬ 
gnotement, vidéo inverse, deux 
couleurs parmi 8. Bien entendu, 
tous les caractères accentués sont 
présents, plus un mode semi- 
graphique d'une résolution de 
160*120. 


L’édition en HYPER-BASIC se fait 
toujours en pleine page, mais sur 
80 colonnes. 

Les changements dans la cartou¬ 
che Telematic sont aussi nom¬ 
breux : passons rapidement sur 
l'édition d'arborescence qui admet 
maintenant 10 choix au lieu de 5 
pour les menus. 

Le morceau de bravoure est sans 
conteste l'éditeur de page et l'ému¬ 
lation qui sont maintenant entière¬ 
ment compatibles avec le standard 
vidéotex. 

Plus de contraintes de proximités, 
les caractères clignotants s'affi¬ 
chent, etc. Pour preuve de sa com¬ 
patibilité, le processeur d'écran utili¬ 
sé est le même que celui utilisé 
dans lesminitels 1b. 

Rendez-vous dans le prochain nu¬ 
méro pour un banc d'essai complet. 
Prix indicatif (sous réserve à l'heure 
où nous mettons sous presse) : 
1490 francs 

FAC SIM 

Oric International a entrepris, avec 
la collaboration d'Eddy Dutertre, l'a¬ 
daptation au Télestrat et au Micro- 
disc (ATMOS et ORIC-1) de la plu¬ 
part des programmes de l'excellent 
livre de Dutertre et Bonomo "Com¬ 
muniquez avec votre Oric-1 et votre 
ATMOS". 

Le programme FAC SIM, réalisé par 
notre ami Dutertre justement 
(quelle kôincidence mon cheeer), 
est d'ores et déjà disponible sur Mi- 
crodisc et Télestrat, au prix de 
390 francs. 

Ce programme permet de visualiser 
sur l'écran de l'ORIC, de sauvegar¬ 
der et même d'imprimer les images 
reçues via les ondes (et un récep¬ 
teur radioamateur, bien entendu !). 
Bien entendu, les images reçues 
peuvent être réémises par la même 
voie, de même que toute image 
haute résolution. 

Le programme est sans doute par¬ 
mi les plus spectaculaires sur ORIC. 
Vous pouvez voir défiler les cartes 
météo, par exemple, mieux que les 
minables animations météo de 
Denis Vincenti et consorts. 

C'est aussi un moyen original de di¬ 
gitaliser les images : un télécopieur 
aux normes radioamateurs et hop ! 
Une belle image en haute résolu¬ 


tion (mais en noir et blanc) sur 
l'écran. 

FAC SIM de E. Dutertre, 390 francs 
chez ORIC-Intemational. 

DOCUMENTATIONS 

Une bonne connaissance du mini¬ 
tel est nécessaire pour réaliser des 
applications exploitant à fond les ca¬ 
ractéristiques du réseau vidéotex. 
Pour ce faire, le CNET édite une 
brochure (200 pages) qui vous dit 
tout sur les minitels 1 et 1 b 
(STUMlb). Sont aussi disponibles 
des documentations techniques 
du M10 (STUM10), etc. 

Pour se les procurer, il suffit d'en¬ 
voyer un chèque de 100 francs à : 
CNET PARIS 
Documentation technique 
38-40, avenue du Général Leclerc 
(1)4638 61 09 


Vends ATMOS 
+ magnéto + cassettes 800 F 
Demander Nicolas. 

Tél. 40.63.20.70 



DISQUETTES DE THEORIC 


A quoi ça vous servirait d'écrire si 
on ne vous écoutait pas ? La rédac¬ 
tion de THEORIC, toujours très au 
fait des critiques (rarissimes, cer¬ 
tes...) de ses lecteurs, propose dé¬ 
sormais les programmes parus dans 
THEORIC directement sur disquet¬ 
tes SEDORIC, utilisables avec les 
MICRODISC ou le TELESTRAT mu¬ 
ni de sa cartouche STRATORIC pré¬ 
férée. 

Ces disquettes regroupent les pro¬ 
grammes de deux numéros de 
THEORIC et seront disponibles à 
partir de la disquette n° 15 (THEO¬ 
RIC n° 33 et 34). Les numéros 1 à 
14 n'existent qu’en version Jasmin. 
Inutile donc, de jouer de l'utilitaire 
CONVERT pour récupérer des pro¬ 
grammes... N’usez plus le bout de 
vos doigts à taper les longues sui¬ 
tes DATA! 

Pour le prix, reportez-vous au bon 
de commande correspondant ! » 
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VITRINE 

DU 

LOGICIEL 


D.A.O. 

BLEU-CIEL INFORMATIQUE 
Tableur graphique 
T. Gempp 

36 fonctions graphiques puissantes 
font que, désormais, l'on devra tenir 
compte de ce tableur graphique. 
Un écran menu, un écran de dessin 
en cours, un écran de dessin en 
attente et un écran "visuel", et 
l'ORIC est plein comme un œuf ! 
Au chargement, l'écran affiche une 
grille offrant les différentes fonctions 
graphiques. Le curseur, représentant 
le pourtour de chaque carré de la 
grille, se déplace dans les huit direc¬ 
tions, grâce à des touches placées 
de manière ergonomique. Pratique ! 
Une fois le cadre clignotant du cur¬ 


seur amené en coïncidence parfaite 
avec le cadre de la fonction sélec¬ 
tionnée (cela n'est pas toujours 
facile), une pression sur la touche 
d'espace suffit à sélectionner la nou¬ 
velle commande dont le picto¬ 
gramme passe en vidéo inverse. Les 
fonctions se répartissent en quatre 
groupes. Les fonctions graphiques, 
les paramètres du curseur, la vitesse 
du curseur et les attributs divers. 
Voici les fonctions que vous propose 
D.A.O. : efface écran, efface attri¬ 
but, scroll pixel (avec effacement 
des attributs), scroll octet (sans effa¬ 
cement), mémo écran (en cours), 
échange écran (permutation simple), 
imprimante (on peut utiliser sa pro¬ 
pre routine de copie d'écran), fin (la 
sauvegarde sur disquette n'est pas 
prévue), miroir (huit directions), rota¬ 
tions droite/gauche, haut/bas et 90° 
quatre directions (les rotations s'ap¬ 
pliquent aux dessins inférieurs à 
8000 pixels), remplis (avec efface¬ 
ment), vide, inverse vidéo, loupe (se 
déplace à l'aide du curseur), gomme 
(3 options), redéfinition de caractè¬ 
res, écris (affiche des caractères, 
éventuellement reconfigurés), dépla¬ 
cement de bloc, copie de bloc, 
échange de bloc, sauve (sur cas¬ 
sette), lis, couleur fond/encre, point, 
droite, droite étoilée, droites bout à 


bout, rectangle, triangle, cercle, 
paramètres d'écriture et vitesse de 
déplacement du curseur. Toutes ces 
fonctions sont donc affichées dans 
la grille (une bascule entre cette grille 
et le dessin en cours est obtenue par 
ESC). La charte des couleurs s'affi¬ 
che dans des petits rectangles. 

Le programme est donc complet et 
fonctionne très bien. Ses faiblesses 
résident essentiellement dans la 
vitesse de déplacement du cadre- 
curseur (en mode menu) et du cur¬ 
seur (en mode dessin), ainsi que 
dans la mise en coïncidence exacte 
du cadre-curseur et de la case- 
fonction. Il y faut beaucoup de 
doigté. En fait, le plus gros défaut de 
D.A.O. est son mode d'emploi beau¬ 
coup plus succinct pour certaines 
fonctions comme, par exemple, ce 
qui traite des couleurs. Le novice y 
pataugera immanquablement et 
c'est vraiment dommage. Mode 
d'emploi à revoir. L'auteur donne 
pourtant quelques conseils utiles, 
notamment quand il met le doigt sur 
les risques de plantage du pro¬ 
gramme si l'utilisateur fait fi de cer¬ 
tains conseils judicieux et faciles à 
suivre. Globalement, un bon pro¬ 
gramme qui possède l'avantage de 
n'être pas coûteux (160 F pour 
ORIC 1 et ATMOS). 


TOUT 

AUGMENTE ! 


NON, 

LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 


Bon de commande page 6 
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GESTION 

DES CANAUX 

SUR TELESTRAT jsss 


Nous abordons dans cet article une 
des plus grandes originalités de la 
structure logicielle du Télestrat : la 
gestion des canaux. 

Une première question vient immé¬ 
diatement à votre esprit, vous qui 
me lisez, chers lecteurs : qu'est-ce 
qu'un canal, au sens freudien du 
terme ? 

Ce à quoi mon esprit vif répond 
sans coup férir : rien du tout, le 
sens freudien est un sens interdit. 
Vous allez dire : mais ça n'a aucun 
sens ! Vous avez raison, c'est l'es¬ 
sence même de mon discours. 

Voilà pour la définition des canaux. 
Passons maintenant à la notion 
d'entrée/sortie (abrégée en E/S 
dans le reste de l'article car j'ai beau 
être payé à la page, c'est trop long à 
écrire. De temps en temps, pour 
brouiller les cartes, j’emploierai 
l'abréviation I/O, pour Input Output, 
c'est la même chose). 

Quoi, comment ? Ce n'est pas 
clair ? Vous n'avez pas compris ce 
qu'est un canal ? Oh, vraiment ? 
Bon, je reprends.Un canal, au sens 
Brochien du terme (de pire en pire) 
canalise les E/S, d'où le terme de 
canal, trouvé après de longues re¬ 
cherches. 

Définissons d'abord la notion 
d’E/S. Une entrée/sortie est une 
entrée ou une sortie. Pas les deux. 
Certains périphériques à double 
sens (RS232 par exemple) sont 
considérés comme deux E/S dis¬ 
tinctes. 

Les E/S sont numérotées pour les 
repérer facilement. Une entrée a 
toujours un numéro inférieur ou 
égal à 7 et une sortie a un numéro 
supérieur ou égal à 8. 

Voici quelques exemples d'E/S 
avec leur numéro et la mnémo¬ 
nique utilisée dans le moniteur du 
Télestrat : 


Clavier 

0 

KBD 

Minitel Entrée 

2 

MDE 

Ecran fenêtre 0 

8 

SCR 

Imprimante 

14 

LPR 

minitel sortie 

15 

MDS 


Revenons à la notion de canal au 
sens Télestratien du terme. Un ca¬ 
nal est l'intermédiaire que l’on va uti¬ 
liser pour adresser une E/S. 

Un canal peut contenir de 0 à 4 E/S 
(aussi bien 4 entrées et 0 sorties 


que 1 entrée et 2 sorties, etc.). 

Ainsi, au lieu de dire "j'envoie un ca¬ 
ractère vers telle sortie", on va dire 
"j'envoie un caractère dans tel ca¬ 
nal". 

Le Télestrat se chargera de réper¬ 
cuter le caractère vers toutes les 
sorties ouvertes dans le canal con¬ 
sidéré. 

Exemple : les ordres PRINT, GET, 
INPUT du BASIC font implicitement 
référence au canal 0. 

Par défaut, sont ouverts deux E/S 
dans le canal 0 : le clavier (numéro 
0) et l’écran (numéro 8). Un PRINT 
va donc demander au Télestrat 
d'envoyer un caractère à toutes les 
sorties du canal 0, c'est-à-dire, dans 
ce cas, l’écran qui est la seule sortie 
ouverte dans le canal 0. 

Un GET, en revanche, va attendre 
un caractère sur toutes les entrées 
disponibles. Il n'y en a qu'une, c’est 
la ... Soyons serieux, c'est le cla¬ 
vier. 

Rajoutons une sortie sur le canal 0, 
le minitel par exemple. Il suffit de ta¬ 
per OPCH 0,15. Le canal 0 con¬ 
tient maintenant 1 entrée, le clavier 
et 2 sorties, le minitel et l'écran. 

Donc un PRINT va envoyer ces ca¬ 
ractères simultanément sur l'écran 
et le minitel, sans autre opération 
que le OPCH. Etonnant, non ? 

Et supposons que vous vouliez gar¬ 
der une trace sur imprimante de vos 
PRINT : il suffit de rajouter une 
3ème sortie sur le canal 0, l’impri¬ 
mante (numéro 14) : OPCH 

0,14.PRINT fait maintenant réfé¬ 
rence aux trois sorties présentes 
dans le canal 0 : l’écran , le minitel et 
l'imprimante. 

Faisons encore une petite mani¬ 
pulation : supposons que vous vou¬ 
liez remplacer l'imprimante par l’é¬ 
cran dans le canal 0. 

Faisons d'abord un RESET chaud 
pour réinitialiser les canaux, nous 
nous retrouvons donc avec les va¬ 
leurs classiques : l'écran et le clavier 
dans le canal 0. 

Il va falloir supprimer l'écran puis ou¬ 


vrir l'imprimante : CLCH 0,8: 
OPCH 0,14. 

Tous les PRINT font maintenant ré¬ 
férence à l'imprimante. Simple, 
non ? 

Donc, résumons-nous : 

Le Télestrat possède 4 canaux, nu¬ 
mérotés de 0 à 3. 

Chaque canal peut contenir jusqu'à 
4 E/S. 

Le canal 0 est utilisé implicitement 
par PRINT, GET, KEY$ et INPUT et 
contient normalement le clavier et 
l'écran. Les 3 autres canaux sont vi¬ 
des à l'initialisation. 

Un canal accepte 4 opérations de 
base : 

-ouverture d'une E/S (ordre 
BASIC OPCH canal,E/S) ; 
-fermeture d'une E/S (ordre 
BASIC CLCH canal,E/S); 

-écriture d'un caractère dans un 
canal, le TELEMON répercutant au¬ 
tomatiquement le caractère vers 
toutes les sorties disponibles dans 
le canal (aucune influence sur les 
entrées) (ordre BASIC PRINT pour 
le canal 0, PRINT jcanal pour les ca¬ 
naux 1,2,3); 

- lecture d'un caractère dans un 
canal, le TELEMON cherchant dans 
toutes les Entrées disponibles un 
caractère (ordre BASIC GET, INPUT 
ou KEY$ pour, le canal 0, GET jca¬ 
nal pour les canaux 1,2 et 3). 

Une entrée est un driver capable 
d'indiquer si un caractère a été reçu 
sur cette entrée et capable de four¬ 
nir un octet si oui. 

L’entrée peut être bufférisée (cla¬ 
vier, minitel) ou non. 

Une sortie est un driver capable 
d'envoyer vers la sortie physique 
l'octet qu'on lui présente. 

La sortie peut être bufférisée (impri¬ 
mante) ou non (écran). 

Nous verrons plus en détail le mois 
prochain les points abordés ici, 
mais vous savez d’ores et déjà l'es¬ 
sentiel sur la gestion des canaux. 
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TRUCS ET ASTUCES 



PEEK(#BB80+40*Y+X), 

tout simplement ! 

LIER PLUSIEURS 
PROGRAMMES 


<! DECONNECTION DU 
^ MINITEL 

Il arrive souvent que des applica¬ 
tions évoluées butent sur un pro¬ 
blème de compatibilité entre la sor¬ 
tie RS232 et le minitel. En effet, le 
Télestrat ne possède qu'une seule 
ACIA (l'ACIA est le co-processeur 
qui permet d’effectuer les conver¬ 
sions parallèle-série et série parallè¬ 
le) pour la RS232 et le minitel. 

Ces deux E/S ne peuvent donc 
être utilisées simultanément. Heu¬ 
reusement, l'électronique interne 
du Télestrat évite automatiquement 
de mélanger les données en en¬ 
trée. 

En sortie, cette électronique agit 
aussi, mais elle ne fait que la moitié 
du travail : elle coupe la sortie RS 
232 lorsqu'on émet vers le minitel, 
mais elle ne coupe pas la sortie mini¬ 
tel lorsqu’on émet vers la RS232. 

Il s'en suit, lorsqu'on utilise la 
RS232 en mode serveur (ou en 
mode émulation), des caractères pa¬ 
rasites sur l'écran du minitel, qui per¬ 
turbent en général le serveur. 

La solution au problème est très 
simple. En effet, le protocole du mi¬ 
nitel nous offre la possibilité de 
"couper" de manière logicielle la pri¬ 
se péri-informatique du modem et 
de l'écran du minitel. Il suffit pour ce¬ 
la d'envoyer les cinq octets sui¬ 
vants : 1/B 3/B 6/0 5/B 5/3 (les ca¬ 
ractères sont donnés en hexadéci¬ 
mal, les deux digits étant séparés 
par un slash, selon la norme mini¬ 
tel). Ce qui correspond à MPRINT 
CHR$(27)CHR$(#3B)... 

A partir de ce moment là, la prise fil¬ 
tre tous les codes sauf, bien enten¬ 
du, les ordres du protocole. Pour re¬ 


connecter la prise et donc retrouver 
une utilisation normale, il suffit d'en¬ 
voyer la séquence 1/B 3/B 6/1 5/B 
5/3 et tout rentrera dans l’ordre. 

PIEGES A ERREUR 

Certaines erreurs peuvent se pro¬ 
duire dans des serveurs encore 
pas tout à fait au point. Or, ces er¬ 
reurs surviennent en général 
quand on n'est pas là, avec la con¬ 
séquence directe de planter le ser¬ 
veur jusqu'à notre retour. 

La solution est simple : détourner 
les erreurs et relancer le Télestrat. Il 
peut être aussi très utile d'imprimer 
quelques variables qui nous per¬ 
mettront de comprendre l’erreur. 
Voici un petit exemple. 


Si le serveur est en AUTO-BOOT 
(grâce au bonjour.COM), il se relan¬ 
cera automatiquement. 

Le WAIT est nécessaire pour être 
sûr que l'impression a eu lieu (à cau¬ 
se du buffer d'imprimante). 



La fonction SCRN permet, sur l'AT- 
MOS, de connaître le code ASCII 
d’un point situé à des coordonnées 
Y et X de l'écran texte. Cette fonc¬ 
tion est malheureusement absente 
de l'HYPER-BASIC. Elle est en re¬ 
vanche remplaçable très facile¬ 
ment : 

SCRN(X,Y) est équivalent à 


Pour des applications Télémati¬ 
ques particulièrement longues, il 
peut être intéressant de scinder 
ces programmes en plusieurs mo¬ 
dules interdépendants. 

Il faut, dans ce cas, prendre garde à 
un bug de l'HYPER-BASIC (si je te¬ 
nais ce Broche...) qui vérole le poin¬ 
teur de retour à la Telematic après 
chaque chargement de programme 
BASIC. 

La solution est donc de sauver ce 
pointeur (il est à l’adresse #7F1) 
avant de charger le programme es¬ 


clave et de le restaurer au début du 
programme esclave. Ce qui donne¬ 
ra ce qui suit : 

PROGRAMME 1 (MAITRE.COM) 

100 POKE 255,PEEK(#7F1):L0AD 
"ESCLAVE.COM" 

PROGRAMME 2 (ESCLAVE.COM) 

0 POKE #7F1,PEEK(255) 

100 POKE 255,PEEK(#7F1):LOAD 
"MAITRE.COM" 


C'est très simple mais il fallait le sa¬ 
voir! 


100 ERGOTO ERREUR 

10000 ]ERREUR 

10010 UNCONNECT 

10020 LPRINT "ERREUR"ERRNB" A LA LIGNE"ERRNL 

10030 WAIT 10 

10040 RESET 
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FONCTION POINT 

POUR ORIC TELESTRAT 


Patrice GUERRIN 


I l lsétalentdesmilliers,desmllliers,àselamentercontinuellementd'unmanque 
de l'HYPERBASIC. Partout des gémissements se faisaient entendre. Les 
I matraques s’entassaient : on préparait en effet une expédition punitive 
contre un certain FABRICE BROCHE (?), auteur de l’HYPERBASIC. Celui-ci, déjà 
retranché chez lui, derrière plus de 10 murs en béton armé, agonisait lentement. 
L’heure était maintenant décisive. Des centaines de TELESTRATIENS, armes au 
poing, se massaient maintenant autour de cette maison tant barricadée. Quand 
soudain, l'assaut fut donné. Une marée humaine hurlante déferla bientôt sur cette 
maison. Les murs en béton furent broyés tant la hargne des TELESTRATIENS était 
grande. Enfin, l'on trouva celui que l’on recherchait : allait-ce être la fin de cet 
inventeur génial de l’HYPERBASIC ? Suite dans le prochain numéro (gag !). 


Le TELESTRAT ne dispose mal¬ 
heureusement pas de l'instruction 
POINT. Présente sur les anciens or¬ 
dinateurs de la gamme ORIC, cette 
instruction est presque indispensa¬ 
ble à la gestion des collisions en mo¬ 
de HIRES. Vous trouverez ci- 
dessous un programme très court, 
100 % langage machine donc très 
rapide, entièrement relogeable 
sans aucune modification, d'une 
centaine d'octets seulement, qui va 
vous faire disposer de cette fonc¬ 
tion. 

L'instruction POINT permet de sa¬ 
voir si un point de l'écran HIRES, 
aux coordonnées définies X (entre 
0 et 239) et Y (entre 0 et 199) est 
allumé (1) ou éteint (0). Si le point 
est allumé (1), alors, ce point dé¬ 
tient la couleur du premier plan. Au 
contraire, si ce point est éteint (0), il 
contient la couleur de fond. 
COMMENT DISPOSER DE LA 
FONCTION POINT ? 

Tout d'abord, copiez le programme 
BASIC qui va rentrer le langage ma¬ 
chine en mémoire. Une fois ce pro¬ 
gramme tapé, sauvez le par SAVE 
"POINT.BAS". Faites RUN. S’il y a 
une faute dans les DATAS, le pro¬ 
gramme vous prévient. Il ne vous 
restera alors plus qu’à vérifier 


ces DATAS. Une fois le RUN effec¬ 
tué, le programme en langage ma¬ 
chine est implanté en mémoire de 
#9200 à #9248. Libre à vous de le 
mettre autre part en mémoire grâce 
à l'instruction MOVE. 

Avant chaque appel de la routine 
POINT, il faudra mettre en #33 la co¬ 
ordonnée X du point recherché 
(entre 0 et 239) et mettre en #34 la 
coordonnée Y (entre 0 et 199), 
puis faire CALL#9200 pour appeler 
la routine. Dès l'appel de la routine 
POINT, l'adresse #35 contiendra 1 
si le point se trouvant aux coordon¬ 
nées X, Y est allumé, sinon, #35 
contiendra 0. (Point éteint). 

Un exemple : Faites HIRES puis 
CURSET 10,10,1. Le point se trou¬ 
vant en 10,10 est alors allumé. 
Faites maintenant POKE#33,10 
puis POKE#34,10 et enfin CALL 
#9200. Si VOUS faites PRINTPEEK 
(#35), le résultat sera 1, car le point 
se trouvant en 10,10 est allumé. 

Au fait, sauvez donc la fonction 
POINT en langage machine par 
SAVE "POINT", A#9200, E#9248. 

Si l'on utilise la fonction POINT 
dans un programme BASIC, il serait 
utile de faire un sous-programme 
POINT, comme celui ci-dessous : 
9000 ] POINT 


9010 POKE#33, X : POKE#34, Y : 

Y:CALL#9200 :P = 

P = PEEK (#35) :RETURN 
Pour appeler ce sous-programme 
POINT, il faudra tout d’abord définir 
les variables X et Y, puis faire 
GOSUB POINT. 

Exemple : 100 X=100: Y =110 : 
GOSUB POINT 

Après l'exécution du programme 
POINT, la variable P contiendra 0 si 
le point est éteint, ou 1 si le point 
est allumé. 

Voici un petit programme qui va 
vous montrer l'utilité de la fonction 
POINT: 

Nous allons afficher un trait vertical 
au milieu de l'écran HIRES puis 
nous allons faire avancer un trait ho¬ 
rizontal vers ce trait vertical. La routi¬ 
ne POINT va nous permettre de sa¬ 
voir quand les deux traits se rencon¬ 
treront, ce qui provoquera d'ailleurs 
une explosion. 

Copiez le programme : "EXEMPLE 
DE COLLISION" et faites RUN 
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DESASSEMBLAGE DE LA FONCTION POINT • ORIC TELESTRAT ■ 

Explications : Pour trouver si le point de coordonnées X et Y est allumé, il 
faut tout d'abord calculer #A000 + 40 * Y + INT (X/6). Le reste de X/6 con¬ 
tiendra la position du bit recherché dans l'octet. On doit donc éliminer les 
deux bits de gauche de l'octet trouvé (ces deux bits ne servent à rien). 
Puis, on prend le bit recherché. Si c’est 0, on sort 0 en #35, sinon, c’est 1 : 
on met donc 1 en #35. 


FONCTION POINT - AUTEUR PATRICE GUERRIN 


9200 LDA §34 

PENDRE COORDONNEE Y 

9202 BRK 20 

ET FAIRE AY=A*40 

9204 STA §35 

SORTIR POIDS FAIBLE EN §35 

9206 STY §36 

ET POIDS FORT EN §36 

9208 CLC 

MET RETENUE A0 

9209 LDA §36 

PREND POIDS FORT RESULTAT AY=A*40 

920B ADC #§ A0 

AJOUTE#A000 (DEBUT ECRAN HIRES) 

920DSTA§36 

ET SAUVE RESULTAT EN §36 

920F LDA §33 

PRENDRE COORDONNEE X 

9211 STA §00 

ET SORTIR EN §00 POUR DIVISION 

9213 LDA #§00 

MET 0 EN §01 (MET POIDS FORT 
§00-§01 à 0) 

9215 STA §01 

POIDS FORT MIS A0 

9217 LDA #§06 

"MET DANS AY LE 

9219 LDY #§00 

"DIVISEUR DEX(06) 

921B BRK 23 

FAIT §00-§01/AY-) §00-§01 ET RESTE 

EN §02-§03 

921D CLC 

N 

921E LDA §35 

N 

9220 ADC §00 

H 

9222 STA §35 

" AJOUTE RESTE DE X/6 AU RESULTAT 

DE #A000+40*Y 

9224 LDA §36 

" SE TROUVANT EN §35-§36 

9226 ADC #§00 


9228 STA §36 

N 

922A LDY #§00 

MET Y A 00 

922C LDA (§35), Y 

PRENDRE CONTENU OCTET RECHERCHE 

922EASLA 

ELIMINER 1 er BIT DE GAUCHE INUTILE 

922F ASL A 

ELIMINER 2eme BIT DE GAUCHE INUTILE 

9230 ASL A 

PRENDRE UN BIT 

9231 PHP 

SAUVER REGISTRE D'ETAT 

9232 CPY §02 

EST CE LE BIT RECHERCHE ? (§02 

CONTIENT LE RESTE DE X/6) 

9234 BEQ §923C 

OUI, ALORS ON VA EN §923C 

9236INY 

SINON, ON AUGMENTE LE COMPTEUR DE 

BITS 

9237 PLP 

ET ON RECUPERE LE REGISTRE D’ETAT 

9238 LDX#§00 

MET REGISTRE X A 0 POUR POUVOIR FAIRE 
UN RETOUR 

923A BEQ §9230 

ASTUCIEUX PAR BEQ, CE QUI PERMET 
D'EVITER UN JMP.(ROUTINE RELOGABLE) 

923C PLP 

RECUPERER REGISTRE D'ETAT 

923D BCC §9244 

SI BIT = 0, ALORS ON VA EN §9244 

923F LDA #§01 

SINON ON PREND 1 

9241 STA §35 

ON LE SORT EN §35 

9243 RTS 

ET C'EST FINI 1 

9244 LDA #§00 

PREND 00 

9246 STA §35 

ET LE SORT EN §35 

9248 RTS 

FIN : RETOUR AU BASIC 



Nom 

Prénom 

Adresse 


Ci joint, un chèque de F à l’ordre des 

Editions SORACOM, La Haie de Pan, 351 70 
BRUZ 
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H >-*••• 

. pftTRICE GUERB'N 

orig TELESTIiM 

DONNEES 


D* < 1 5 

D* l2> 
D»0> = 
D*< a)= 

D$15)® 

D* <6> = 
D*lf) 

D* 181 

D»<9 > “ 

D*1 10 ' 


" A 5 » 3 4 

•• 33 » 85 
"06,60 
" fc>5 » 0° 
••05,38 
••06,08 
•• ft2,0° 
••01 j 8 -* 
= ••60" 


, 00,20 

,36,69 

,00,A 9 
,00,0° 
,85,35 

,AO,00 

,C4,02 
,F0,E 4 
,35,60 


,85,35 
,ftO,85 
,00,85 
,23,1 8 
,A5,36 
,81,35 
,F0,06 
,28,^0 
,A9,00 


,84,36" 

,36,65" 

,01,A 9 ' 

,A5,35" 
,69,00" 
OA,06" 
,C8,28" 
,05,69" 

,85,35" 


CHRB GEUR 


fotVo'%> « >E0 

SS ;niSS*.S£ï«»> 

S E =^EK<.3 5 > 

Ion <>«.«» THEN PI 


:t 

5 ' EXEMPLE DE COLLISION 
o ' 

7 ' ' PATRICE GUERRIN - 1987 - 

8 

10 IF PEEK119200)O»A5 THEN TEXT 
• LIST 100,120 ELSE HIRES: INK 1 
15 FOR EM 20 TO 239 
20 CURSET E,50,HDRAW 0,100,1 
25 NEXT 
30 YM 00 

40 FOR XM5 TO 239 
50 GOSUB POINT 

55 IF PM THEN PRINT :PRINT 1 

COLLISION ! 1 *:COÜNT 20:EXPLO 
DEVAIT 2 : UNCOUNT : END 
60 CURSET X,Y,1 

65 «AIT 1 

70 NEXT 
80 IPOINT 

90 POKE I33,X:P0KE #34,Y:CALL » 

9200:P=PEEK!135) :RETURN 

100 ' 

105 ' LE PROGRAMME POINT DOIT ETRE 


EN 

110 ' EN MEMOIRE A PARTIR DE *9200 
120 ' AVANT D'EXECUTER CE PROGRAMME# 



•.print 


erreur 


dans les DA«s 


qORR1UES 



I 


end 

3RE6D 

L0NG=2 lONG) eulVANTE 

; £JS£# 

3 rETURN 

O 3S l"-'-‘ d0KE «»..«•«** «D0 

10 RETURN *02, 4*3849 -.DOKE 4*D4,*I36E 9 ' tO0 20:0CWE 4*E4,4*0 

»• 1VAL , d0 ,.33 B s-. D oke oke . E o,.oo«.ook mke ,fo..3 

S* S3iSS«- 

• OOKE 4*F2,^ 

fe90 RETURN# 
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SOLFEGE 



J e vous propose un 
programme qui 
intéressera tous 
ceux qui découvrent la 
musique et le solfège, 
petits et grands. Il permet 
d'écrire un morceau de 
musique comportant au 
maximum 100 notes ou 
autres signes sur une por¬ 
tée (clé de sol), de le faire 
jouer par l'ordinateur, de 
le stocker sur disquette, 
d'en charger un autre, de 
l'exécuter, etc. ATTEN¬ 
TION, ce programme a 
été écrit pour ATMOS. 


Après avoir saisi le programme prin¬ 
cipal, frappez les deux petits pro¬ 
grammes annexes et exécutez-les. 
Vous avez donc 3 fichiers : le pre¬ 
mier contenant le programme prin¬ 
cipal MUSIQUE les deux autres con¬ 
tenant les données nécessaires. 
!"MUSIQUE'\ 

affiche alors les différents symboles 
utilisables et demande le nombre de 
temps dans une mesure (de 1 à 9) 
puis demande la forme de note équi¬ 
valente à 1 temps. Pour sélectionner 
celle-ci, utilisez les touches de dépla¬ 
cement horizontal du curseur (— et 
— ) puis frappez la barre d'espace 
pour valider la note sur le curseur. 
MUSIQUE affiche alors la portée, la 
clé de sol, la mesure et un curseur 
que l'on pourra déplacer verticale¬ 
ment grâce aux touches l et I. On 
peut donc choisir sa note au moyen 
des touches I —— l et ESPACE. 

En cas d'erreur, vous pouvez la cor¬ 
riger par l'action de SHIFT (efficace 
que sur la portée courante) : 

SHIFT Droit déplace le curseur (de la 
portée) à droite ; 

SHIFT Gauche déplace le curseur à 
gauche ; 

DEL efface la note au-dessus du cur¬ 


seur, vous pouvez alors la remplacer. 
Si vous désirez marquer le début 
d'une répétition frappez A, la fin de 
la répétition frappez Z. Si le début 
manque, la répétition partira du 
début du morceau, si la fin manque 
il n'y aura pas de répétition. 

Si vous désirez une armature, fai¬ 
tes Q ; positionnez les altérations et 
Q pour sortir. 

Si une erreur est commise en ce qui 
concerne le nombre de temps dans 
une mesure, elle vous sera indiquée 
par un PING. 

Si vous désirez écouter ce que vous 
avez écrit faites CTRL, le programme 
jouera la mélodie jusqu'à la position 
du curseur. Vous pouvez interrom¬ 
pre son exécution en appuyant sur 
ESPACE. A tout moment, sauf pen¬ 
dant l'exécution d'un morceau où 
seule la barre d'espace est active, 
ESC vous fait passer au menu prin¬ 
cipal. 

Le menu principal propose 6 fonc¬ 
tions : 

E : exécute le morceau en mémoire 
N : permet l'écriture d'un nouveau 
morceau 

P : permet d'augmenter (I) ou de 


diminuer (l) la puissance du son 
S : permet de sauver sur disquette 
le morceau 

J : charge et joue un morceau préa¬ 
lablement sauvé sur disquette. S'il 
n'existe pas un message l'indiquera 
F : fin. 


Le programme ne comporte pas de 
commentaires, ils sont ici : 

Les variables : 

Les tableaux : 

T( 16) : hauteur du son de chaque 
ligne de la portée 

TB(16) : modifications dues aux 
altérations des armatures 
TM(16): modifications dues aux 
autres altération', 
les autres : 

ST : portion de la portée 0 ou 61 
SO : somme de la durée des notes 
remises à zéro à chaque mesure 
XH : abscisse du curseur horizontal 
YH : ordonnée du curseur horizontal 
XV : abscisse du curseur vertical 
XY : ordonnée du curseur vertical 
DN : durée d'un temps 
R : durée d'une mesure 
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D : durée d'une note 

DM : nombre de temps dans une 

mesure 

PV,PH : position des curseurs hori¬ 
zontale et verticale 

Adresse de début des zones de stoc¬ 
kage de 
PI la durée 
P2 la hauteur 
P3 l'octave d'une note 

Le corps du programme va de la 
ligne 1000 à la ligne 1590 
1000-1270: saisie du morceau 
avec de 1070 à 1120 la saisie des 
touches 

1500-1590 : menu principal 

Les sous-programmes : 

1600 sauvegarde du morceau écrit 
1700 joue les notes 
1800 charge et exécute un 
morceau 

1900 traitement des erreurs disque 
2000 déplacement du curseur hori¬ 
zontal à droite 

3000 déplacement du curseur hori¬ 
zontal à gauche 



MODIFICATIONS SUGGEREES 
POUR L'UTILISATION 


.(lacement du curseur ver¬ 
tical 

6000 calcul de la position du cur¬ 
seur horizontal 

calcul de la position du cur¬ 
seur vertical 

8000 efface et affiche une portée 

9000 action de SHIFT gauche 
10000 action de SHIFT droit 
11000 action de DEL 
12000 exécution d'un morceau 
13000 et 14000 début et fin de 
reprise 

15000 mise en place des armatures 
16000 mise à jour des tableaux TM 
et TB 

17000 fin de mesure 
18000 affiche les petites lignes en 
dessus de la portée 
18100 affiche la petite ligne en des¬ 
sous de la portée 
19000 modification du volume 
sonore 


D'UN MAGNETOPHONE 

qui concerne l'utilisation du 
magnétophone, elle fera perdre la 
rapidité, la facilité d'utilisation et la 
détection d'erreur, mais on peut 
adapter le programme de la façon 
suivante : 

la ligne 20 !LOAD''CARAC.BIN" 
devient 20 CLOAD''CARAC'' 

30 !LOAD"CONST.BIN'' 
devient 30 CLOAD'TONST'" 
1630 B$ = LEFT$(B$,8) + 
".BIN,10100,10400'' devient 1630 
B$ = LEFT$(B$,16) 

1640 !SAVEB$:POKE# 26A, 
6 devient 1640 CSAVE B$,A10100, 
El 0400 

1830 M$ = LEFT$(MN$,8) 

+ 

".BIN" devient 1830 M$ = LEFT$ 
<MN$,16) 

1840 

!LOADM$:POKE # 26A,6 devient 
1840 CLOAD M$ 

Les lignes 1856, 1845, 1835, et de 
1900 à 1960 inclus sont à annuler. 


H IRES 

HIMEM9800 

1 LOAD" CARAC.BIN" 

1 LOAD"CON£T.BIN" 

P0KE#26A,6 

FORI=9800T09810 

READA:POKEI ,A :NEXT 

DATA#A2,#C8-#A9,0.#9D.#73,#27,#CA, 
#FA,#60 

FOR1=1 TO 93 STEP3 

X = PEEK <9906+1 ) :Y = PEEK<9907+I) : CAR 
K(9908+I> 

CURSETX.Y,3 
CHARCAR,1,1 

NEXT 

/ 

C.=FRE< " " ) : CALL9300 
Pl=10100 
P2=10200 
P3=10300 

DIM T<16) : DIM TM<16):DIM TB<16) 
CLS 

FORI=1 TO 15 
TM(I)=0 : TB(I)=0 
T <I)=PEEK<10071 + 1) 

NEXT 

ST=61 :A=1 :S=1 :FA=1:£0=0 
XH=106:YH=190:PH=9:F0=9 

REPEAT 

CLS 


530 PRINT"Comt> i en de temps dans une m 
esure ?" 

540 GETR* 

550 CLS:DM=ASC(Rt) 

560 UNTIL < DM> 4 8 AND DM .58 > OR OM=27 
570 IF DM=27 THEN 1500 
530 DM=VAL < R* > 

590 REPEAT 
600 CuS 

610 PRI NT"Que lie forme de note pour u 
n temps ?" 

615 CUftSET XH,YH,3 : DRAW 4,0,1 
620 REPEAT 
630 FI=0 

640 IF PEEK<#208>=#BC THEN GOSUB 2000 
650 IF PEEK(#208)=#AC THEN GOSUB 3000 
660 IF PEEK(#208)=#A9 THEN Fl=l 
670 UNTIL PEEK(#208)=#84 OR FI=1 
680 CLS:DN = PEEK(10001 + < PH-1)*4) 

690 UNTIL (DN> 44 AND DN<52) OR FI = 1 

700 IF FI = 1 THEN 1500 

710 DN=PEEK(10000+(PH-1)*4) 

720 R=DN*DM :DN=INT(32/DN) 

1000 ' 

1001 REPEAT 

1004 IF ST=0 THEN ST=61 ELSE ST=0 

1005 GOSUB8000 

1020 XV=20:YV=46+ST:PV=5 
1045 REPEAT 

1050 CURSET XV,YV,3:DRAW 4,0,1 
1070 REPEAT 
1072 FI=0 
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1075 IFPEEK(#209)=#A2THENG0SUB12010 
1080 IF PEEK < #208)=#BC THEN GOSUB 200 

0 

1082 IF PEEK(#208)=#A9 THEN FI=2 
1085 IFPEEK(#209)=#A7THENGOSUB10000 
1090 IF PEEK<#208)=#AC THEN GOSUB 300 

0 

1092 IF PEEK<#208)=#B1 THEN GOSUB 150 
00 

1095 IFPEEK< #209)=#A4THENGOSUB9000 
1100 IF PEEK<#208)=#9C THEN GOSUB 400 

0 

1105 IFPEEK(#208)=#ADTHENG0SUB11000 
1110 IF PEEK <#208)=#B4 THEN GOSUB 500 

0 

1115 IF PEEK(#208)=#AE THEN GOSUB 130 
00 : FI = 1 

1116 IF PEEK(#208)=#AA THEN GOSUB 140 
00 : FI = 1 

1120 UNTILPEEK <#208)=#84 OR FIOO 

1125 IFFI=2 THEN1250 

1126 IF FI=1 THEN 1230 
1128 D=PEEK<10000+<PH-1)*4) 

1130 IF SO=R THEN GOSUB 17000 
1134 IF SO+D>R THEN PING:GOTO 1250 
1136 SO=SO+D 

1139 POKEP1 + A, D 

1140 C1=PEEK(10001+(PH-1)*4) 

1150 C2=PEEK<10002+(PH-1)*4) 

1160 C3=PEEK<10003+(PH-1)*4) 

1170 POKEP2+A,T(PV)+TM(PV) 

1173 POKEP3+A,3 

1175 IF PV>7 THEN POKE P3+A,4 

1180 IF P.V> 14THEN POKEP3+A,5 

1181 IFC1=42 THEN CT=l:GOSUB 16000 

1182 IFC1=43 THEN CT=-l:GOSUB 16000 

1183 IFC 1=44 THEN CT=0:GOSUB 16000 

1185 IFC1=520RC1=530RC1=540RC1=550RC1 
=56 THEN POKE10200+A,0 
1190 CURSET XV,YV,3 :DRAW4,0,0 
1193 GOSUB 18000 :GOSUB 18100 
1200 CURSET XV,YV-7,3 : CHAR Cl ,1,1 
1210 IF C2O0 THEN CURSET XV+5,YV-15, 
3 : CHAR C2,1,1 

1220 IF C3O0 THEN CURSET XV+6,YV-7,3 
! CHAR C3,1,1 
1230 A=A+1 
1240 XV=XV+10 

1245 IF PEEK i P2+I)=100 THEN A(S)=I:GO 
TOI 2080 

1250 UNTILXV>220 OR FI=2 
1260 UNTIL FI=2 
1270 CURSETXH,YH,3 : DRAW4,0,0 
1500 REPEAT 
1536 CLS 

1540 PRINT"E)xecuter SJauvegarder N)o 
uveau F)in" 

1550 PRINT"J)ouer un autre morceau P 
)uissance" 


1560 GETAI 

1570 IF A * = "S" THEN GOSUB 1600 

1575 IF A$="N" THEN RUN300 

1576 IF AI = "J" THEN GOSUB 1800 

1577 IFA$="E" THEN GOSUB 12010 

1578 IF A $ = "P" THEN GOSUB 19000 
1580 UNTIL A $ = " F " 

1590 TEXTlEND 
1600 ' 

1610 CLS 

1620 INPUT "Quel nom donnez-vous a vo 
tre morceau":B$ 

1630 B$=LEFT$(B«,8)+".BIN,10100,10400 

II 

1635 POKE10199,A 

1640 !SAVEBI:POKE#26A.6 

1650 RETURN 

1700 ' 

1710 MUSICI,PEEK(P3+I),PEEK<P2+I),FO 
1790 RETURN 
1800 ' 

1810 CLS 

1820 INPUT"Quel est son nom ":MN$ 

1830 M*=LEFTI(MNi,8)+".BIN" 

1835 'ERSET 

1840 1 LGADMI:POKE#26A,6 
1845 !ERR GOTO 1900 
1850 A=PEEK(10199) 

1854 GOSUB12010 
1856 'EROFF 
1860 RETURN 
1900 ' 

1905 CLS 

1*10 IF PEEK(#489)=7 THENPRINTMN$ + " n 
'existe pas":GOTOl950 
1920 TEXT 

1930 PRINT"ERREUR DISQUE N'";PEEK<#48 
9) 

1940 END 
1950 GETQi:CLS 
1960 GOTO 1856 
2000 ' 

2004 BH=214 

2006 IF FA<0 THEN BH=34 

2010 CURSET XH,YH,3 :DRAW4,0,0 

2020 IF XH<BH THEN XH=XH+12 

2030 GOSUB 6000 

2040 RETURN 

3000 ' 

3010 CURSET XH,YH,3 :DRAW4,0,0 
3020 IF XH>12 THEN XH=XH-12 
3030 GOSUB 6000 
3040 RETURN 
4000 ' 

4010 CURSET XV,YV,3:DRAW 4,0,0 
4020 IFYV>18+STTHEN YV=YV-3 
4025 GOSUB 18000 
4030 GOSUB 7000 
4050 RETURN 
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5000 ' 

5010 CURSET XV,YV,3:DRAW 4,0,0 
5014 BV=56 

5020 IFYV<BV+STTHEN YV=YV+3 
5030 GOSUB 7000 
5050 RETURN 
6000 ' 

6010 CURSET XH,YH,3 : DRAW 4,0,1 
6020 PH=INT((XH-10)/12)+1 
6030 RETURN 
7000 ' 

7010 CURSET XV,YV,3:DRAW 4,0,1 
7020 PV=INT((58+ST-YV)/3)+1 
7030 RETURN 
8000 ' 

8001 CLS:PRINT:PRINT M Patient 

ez un peu" 

8002 FORI=ST TOST+58 

8003 CURSETO,I,3 

8004 DRAW239,0,0 
8006 NEXT 

8010 CURSET 2,31+ST,3 

8020 CHAR 57,1,1 

8030 CURSET 2,39+ST,3 

8040 CHAR 58,1,1 

8050'CURSET 2,47 + ST,3 

8060 CHAR 59,1,1 

8070 FOR 1=0 TO 29 STEPo 

8080 CURSET 0,26+I+ST,3 

8090 DRAW 239,0,1 

3100 NEXT 

8105 CLS 

8110 CURSET9,30+ST,3 
8120 CHAR- ASC(R$) ,0,1 
8130 DNt=STR*(DN) 

8140 FOR1=2 TO LEN(DNi) 

8150 CURSET9+ <I-2)*6,40 + ST,3 
8160 CHAR ASC(MID$(DN$,I,1)),0,1 
8170 NEXT 
8190 RETURN 
9000 ' 

9010 CURSETXV,YV,3 :DRAW4,0,0 
9020 IFXV> 20 THEN XV=XV-10 :A=A-1 :YV=S 
T + 58 

9030 GOSUB 7010 
9040 RETURN 
10000 ' 

10010 CURSETXV,YV,3:DRAW4,0,0 
10020 IFXVC220 THEN XV=XV+10 :A = A+1 :YV 
=ST+58 

10030 GOSUB 7010 
10040 RETURN 
1 1000 ' 

1 1005 CLS: PRI NT : PR I NT" Patientez 

un peu" 

11010 FOR I=ST TO ST+57 
11020 J=I-ST 

1 1030 IF J = 260R J = 320R J = 380R J = 4 4OR J = 50T 
HEN 1=1+1 


11040 CURSETXV-1,1,3 
11050 DRAW9,0,0 
11060 NEXT 

11065 SO=SO-PEEK(PI+A):CLS 
1 1068 POKEP1+A,0 :POKEP2 + A,0 :POKEP3 + A, 

0 

11070 RETURN 
12000 ' 

12010 IFA <2THEN12100 
12020 CLS:INPUT"Duree d'une noire 
12030 WAIT50: FORI=0TO2: PING: WA IT8*M: N 
EXT 

12035 DE=1 

12040 FOR 1=1 TO A-l 

12043 IF PEEK(P2+I) = 100 THEN DE=I :GOT 
O 12080 

12045 IF PEEK(P2+I)=101THEN GOSUB 122 
00:GOTO 12080 

12050 IFPEEK(P2+I)<> OTHENGOSUB1700 
12060 WAITPEEK( P1 + I)*M 
12070 MUSIC1,1,1,0 

12075 IF PEEK <#208)=#84 THEN I=A-1 
12080 NEXT 
12090 CLS 
12100 RETURN 
12200 ' 

12210 IF DE<>0 THEN I=DE;DE = 0 
12220 RETURN 
13000 ' 

13005 CURSETXV,YV,3 :DRAW4,0,0 
13020 POKE(P1+A),0 
13030 POKE(P2+A),100 
13040 POKE(P3+A),0 

13050 CURSET XV+1,26+ST,3 :DRAWO,24,1 
13060 CURSET XV + 2,26 + ST,3 :DRAWO,24,1 
13070 CURSET XV + 4,26 + ST,3 :DRAWO,24.1 
13080 CURSET XV+6,35+ST,l 
13090 CURSET XV+6,41+ST,1 
13100 RETURN 
14000 ' 

14005 CURSETXV,YV,3 :DRAW4,0,0 
14020 POKE(P1+A),0 
14030 POKE< P2 + A),101 
14040 POKE(P3+A),0 

14050 CURSET XV + 6,26 + ST,3 :DRAWO,24,1 
14060 CURSET XV + 5,26 + ST,3 :DRAWO,24,1 
14070 CURSET XV + 3,26 + ST,3 :DRAWO,24,1 
14080 CURSET XV+1,35+ST,1 
14090 CURSET XV+1,41+ST,1 
14100 RETURN 
15000 ' 

15010 FA=-FA:CURSETXH,YH,3 :DRAW4,0,0 
15015 XH=10 :GOSUB 6000 
15020 CURSET XV,YV,3 :DRAW4,0,0 
15030 YV=ST+37:GOSUB 7000 
15050 IF FA<0 THEN PRINT" 

Armature" ELSE CLS 
15090 RETURN 
16000 ' 
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16010 TM(PV)=CT 
16020 POKEP3+A,0 
16030 IF FA>0 THEN 16090 
16040 TB(PV)=CT: IF PV-7>0 THEN TB(PV- 
7)=CT: TM(PV-7)=CT 

16050 IF PV-7 < = 0 THEN TB(PV + 7)=CT: TM( 
PV+7)=CT 

16055 IF PV=15 THEN TB<15)=CT: TM(15) = 
CT 

16090 RETURN 
17000 ' 

17010 S0=0 

17020 FORI=0 TO 14 

17030 TM(I)=TB(I) 

17040 NEXT 

17050 CURSET XV-1,ST+26,3 :DRAWO,24,1 
17060 RETURN 
18000 ' 

18010 IF YV<23+£T THEN CURSET XV-2,ST 
+20,3:DRAW 8,0,1 

18020 IF YV<17 +ST THEN CURSET XV-2,ST 
+14,3:DRAW 8,0,1 
18030 RETURN 
18100 ' 

18110 IF YV>ST+56 THEN CURSET XV-2,ST 
+ 56,3 ; DRAW 8,0,1 
18120 RETURN 
19000 ' 

19010 CLS 

19020 PRINT"Modifiez la force du son 
grâce aux" 

19025 PRINT"touches de déplacement du 
curseur" 

19030 PRINT" ESP pour valider"' 

19040 REPEAT 
19050 GETAi 

19060 IF Ai = " " THEN 19100 
19070 IF Ai=CHRi(U) AND FO<15 THEN F 
0=F0+ 1 

19080 IF Ai=CHRî<10) AND F0>0 THEN FC 
=FO- 1 

19C90 MUSIC1,3,10,FO 
19100 UNTIL Ai = " " 

19110 CLS 
19120 RETURN 
20000 GETAi 
50000 • 


10 A=#9D50:F=#9DE8:L=100 :REPEAT: FOR A 
= A TO A+15 :READ Ci 

20 K=VAL("#"+Ci):S=S+K+65536*<S+K>655 
35): IF A< = F THEN POKE A,K 
30 NEXT:READ Di : IF S=VAL<"#"+Di) THEN 
L=L+5:UNTIL A>F:GOTO50 
40 PING :PRINT"Erreur 1 igne":L: END 


50 ! SAVE"CARAC.BIN,#95D0,#9DE8": END 
100 DATA 00,00,09,3F,12,12,3F,24,10,1 
0,16,19,11,12,14,18,016D 
105 DATA 20,26,2A,32,26,2A,32,02,01,0 
1,01,0D,1F,1F,1E,OC,030B 
110 DATA 01,01,01,0D,13,11,12,0C,3C,3 
C,20,3C,3C,20,3C,3C,0505 
115 DATA 3C,3C,20,3C,3C,20,20,20,3C,3 
C,20,20,20,20,20,20,07AD 
120 DATA 20,20,20,20,20,20,20,20,00,0 
0,00,1E,33,33,33,1E,0982 
125 DATA 00,00,00,00,00,3F,1E,1E,00,0 
0,00,1E,1E,3F,00,00,0A78 
130 DATA 00,02,04,08,04,08,04,02,00,0 
0,0E,02,04,08,10,10,0AD4 
135 DATA 00,00,OE,02,OC,08,10,10,04,0 
A,OA,OA,OA,OC,OC,08,0B64 
140 DATA 08,18,1C,2E,2A,2A,2A,1C,08,0 
8,08,08,08,08,10,20,0CC8 
145 DATA 00,00,00,00,00,00,00,20,38,0 
0,00,00,00,00,00,00,0D20# 


10 A=#26B3:F = #2774 :L=100: REPEAT: FOR A 
=A TO A+ 15 :READ Ci 

20 K = VAL< "#"+Ci) : S=S+K+65536* < S+K>655 
35):IF A<=F THEN POKE A,K 
30 NEXT:READ Di : IF S=VAL<"#"+Di) THEN 
L = L + 5:UNTIL A>F :GOTO50 
40 PING : PR INT "Erreur 1 i gne " L : END 
50 ! SAVE"CONST,BIN,#26B3,#2774": END 
100 DATA OA,B4,2A,16,B4,2B,22,B4,2C,2 
E,B4,2D,33,AC,2F,3A,0536 
105 DATA B4,2D,3F,AC,30,46,B4,2D,4B,A 
C , 30,4C,B4,3C,52,B4,0BC2 
110 DATA 2D,57,AC,31,5E,B4,2D,63,AC,3 
1,6 4,B4,3C,6A,B4,2D,1241 
115 DATA 6F,AC,32,76,B4,2D,7B,AC,32,7 
C,B4,3C,82,B4,2E,87,1995 
120 DATA AC,32,8E,B4,2E,93,AC,32,94,B 
4,3C,9A,B4,33,A6,B4,21B3 
125 DATA 34,B2,B4,35,BE,B4,36,CA,B4,3 
7,D6,B4.38,00,2A,00,28CB 
130 DATA 00,00,2B,00,00,00,2C,00,00,0 
1,2D,2F,00,02,2D,30,29DE 
135 DATA 00,03,2D,30,3G,04,2D,31,00,0 
6,2D,31,3G,08,2D,32,2BE3 
140 DATA 00,OC,2D,32,3C,10,2E,32,00,1 
8,2E,32,3C,20,33,00,2E01 
145 DATA 00,20,34,00,00,10,35,00,00,0 
8,36,00,00,04,37,00,2F13 
150 DATA 00,02,38,00,00,01,03,05,06,0 
8,OA,OC,01,03,05,06,2F89 
155 DATA 08,OA,OC,01,00,00,00,00,00,0 
0,00,00,00,00,00,00,2FA8 
160 DATA 00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,2FA8# 
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ET CONTROLEZ LA ROTATION D'UN MOTEUR 
AVEC VOTRE ORDINATEUR (ATMOS OU ORIC1) 

SUITE 


Maurice LE GUYADER 


I a mous pouvez transformer à titre expérimental un moteur de barbe- 
eue en moteur à rotation programmable via la sortie imprimante et 
V une interface à construire. La commande est aussi possible par l'in¬ 
termédiaire d'une carte 8 entrées 8 sorties en adaptant vous-même les bran¬ 
chements et le programme en langage machine. 


L'INTERFACE 


Le VIA 6522 

Une étude détaillée du VIA 6522 est 
faite dans Théorie n° 22 page 9 et 
dans l'ouvrage l'ORIC A NU de 
Fabrice Broche. 

C'est le port A du VIA 6522 qui gère 
la sortie imprimante (prise PRINTER 
de l'ordinateur) avec le clavier et le 
générateur sonore (voir le schéma 
partiel de l'ordinateur figure 1 et le 
dessin de la prise de sortie impri¬ 
mante figure 2). Le schéma complet 
de l'ordinateur est présenté dans 
Théorie n° 12 page 30. La validation 
des données réservées à l'impri¬ 
mante est faite par le signal Strobe 
(Port B 4), le signal accusé de récep¬ 
tion ACK (CA 1 ) ne sera pas utilisé 
par l'interface de commande du 
moteur. 


FIGURE 2 


SORTIE IMPRIMANTE 



Voici quelques caractéristiques du 
VIA 6522 relevées sur la sortie 
imprimante : 

— PORT A programmé en sortie : 


Sortie à 1 

tension à vide * 4,9 volts 
en cas de court-circuit I = 1,27 mA 
impédance de sortie « 3850 O 
La charge devra être très faible pour 
conserver une tension exploitable 
par le VIA pour le clavier et le géné¬ 
rateur sonore, d'où l'utilisation d'un 
montage de 2 transistors en darling- 
ton BC237B et 2N2222 (très grand 
gain) avec une résistance de base de 
10 KO pour commander les relais 
REL 2 et REL 3 (figure 3). 

Sortie à 0 

tension à vide <0,1 volt 
impédance de sortie * 35 O 
Surtout pas de 5 volts sur cette 
borne, la diode D6 sur PA 5 évitera 
tout passage de courant du + 
5 volts vers la masse, provoquant 
notamment l'allumage normal de la 
LED L5 (figure 3). 

— PORT A programmé en entrée : 

PORT A en ''l'air'' 
tension * 4,9 volts 

PORT A à la masse 
intensité * 1,27 mA 
résistance de rappel au + 5 volts de 
= 3850 Q incorporée au VIA 6522. 

— Signal strobe PORT B 4 
Cette sortie, normalement à l'état 


haut, passe à l'état bas pendant 
quelques microsecondes pour valider 
une donnée réservée à l’imprimante. 
Le Port A étant en perpétuel chan¬ 
gement (clavier, générateur sonore, 
sortie imprimante), l'alimentation 
1 2 volts des relais REL 2 et REL 3 
sera commandée par un relais REL 1 
activé par le Strobe, le circuit de 
comptage de l'engrenage modifié 
sera également validé par REL 1 pour 
éviter tout problème lorsque les 
balais restent accidentellement 
court-circuités (figure 3). Le Strobe 
sera forcé à 0 par le programme pen¬ 
dant le contrôle de rotation du 
moteur. Le clavier, le Timer 1 et le 
générateur sonore ne pourront pas 
être utilisés pendant cette période. 

Description de l'interface 
(voir figure 3). 

Fonctionnement des transistors : 

— Lorsque la base est positive (par 
l'intermédiaire d'une résistance R3 
pour Tl, R4 pour T2, R6 pour T4 et 
T3, R8 pour T6 et T5), le transistor 
se comporte comme un interrupteur 
fermé. 

— Lorsque la base est à la masse 
via sa résistance, le transistor se 
comporte comme un interrupteur 
ouvert. 

— Le STROBE (PB 4) étant norma¬ 
lement au niveau (= + 4,5 volts), 
les transistors T2 et Tl feront une 
double inversion pour activer REL 1 
uniquement lorsque PB 4 sera à * 
0 volt. 

Fonction des diodes DI à D5 : DI et 
D5 évitent tout problème en cas 
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d'inversion accidentelle de polarité 
des alimentations mais, par contre, 
une overdose de tension sur l'entrée 
5 volts maxi. 

D2, D3, D4 protège les transistors 
contre les surtensions par effet de 
self lors de la commutation des bobi¬ 
nes de relais. 

Fonction des condensateurs : 

Cl fait office de réservoir d'énergie 
dans le cas d'une alimentation par 
piles. 

C2 sera soudé le plus près possible 
du moteur pour calmer les parasites 
générés par le collecteur. 

Alimentation de l'interface 

12 VOLTS : 

1 2 volts redressé ou 3 piles plates 
de 4,5 volts en série (13,5 volts 
théoriques) ou tout autre système 
équivalent. Il faut noter que la diode 
DI amène une chute de tension de 
= 0,78 volt. 

5 VOLTS maxi : 

1 pile plate de 4,5 volts est suffi¬ 
sante. Les 5 volts pourront être pris 
sur les bornes 33 ( + 5 volts) et 34 
(masse) de la prise d'extensions. 
L'interface fonctionne également 
sans les 5 volts, mais la LED L5 ne 
s'allumera pas. 

1,5 VOLT : 

Pile 1,5 volt du moteur de barbecue. 

Construction de l'interface 

(voir figures 4, 5, 6 et la liste des 

composants) 

L'utilisation d'une plaque perforée 
pastillée permettra aux débutants en 
électronique de faire facilement le 
câblage. La réalisation sur un circuit 
imprimé traditionnel est réalisable 
après épaissement des pistes. Le 
plan d'implantation (figure 4) est 
repéré pour positionner les différents 
composants. La réalisation de la 
carte se fera en 2 temps : 

— Mettre en place les composants, 
soudez, coupez les fils trop longs. 

— Réalisez le circuit cuivre avec du 
fil de câblage nu de diamètre 4/10 
à 5/10 de mm. Posez et soudez les 
4 straps et les 3 brides en fil de 
câblage isolé pour maintenir les 
dominos et la nappe de 20 fils. N'ou¬ 
bliez pas la protection du côté cui¬ 
vre contre les courts-circuits (tour¬ 
nevis, fil de cuivre égaré sur la 
table !!!) par un boîtier ou du carton 
fin collé sous l'interface. Le bro¬ 
chage est donné en figure 5 pour les 
composants et en figure 6 pour les 
relais. 


Montage de la prise imprimante 


Le sertissage de la nappe de 20 fils 
sur la prise peut se faire en serrant 
l'ensemble modérément dans un 
étau (utilisez des cales de bois si les 
mors sont triés et vérifiez bien les 
branchements). 



vue de 
dessous des 
RELAIS 


Branchement du moteur 

Le câblage du moteur est facile à sui¬ 
vre sur le schéma, une remarque : 
lors de l'ouverture du relais marche 
arrêt REL 3, le moteur est court- 
circuité provoquant un arrêt plus 
rapide (le moteur à aimant perma¬ 
nent devient générateur de courant 
en phase de décélération). Nous ver¬ 
rons que cet arrêt n'est cependant 
pas assez rapide, il faudra donner par 
programme une impulsion de mar¬ 
che inversée avant de commander 
l'arrêt. La pile 1,5 volt sera à l'exté¬ 
rieur du moteur, les fils y seront 
directement soudés. L'alimentation 
moteur sera aussi faite par soudure 
des fils directement sur les bornes du 
boîtier à pile. Attention aux polarités. 

Essai de l'interface 

Vous pouvez tester la carte (sans le 
moteur) avec le petit programme de 
test en BASIC. Le programme de 
commande et de contrôle du moteur 
fera l'objet du prochain article. 

100 • ♦-♦ 

105 ' ! TEST de l'interface ! 

110 ' ! iapriaante par ! 

115 ' ! un prograaae en BASIC i 

120 ' ! ATHÛS et ORIC 1 ! 

125 ' ♦-♦ 

130 ' les ' (REH) peuvent etre 
135 ‘ suppriaees ou n'oubliez pat de 
140 ‘ reaplacez les ' de début de 
145 ' ligne par REH sur ORIC 1 
150 ' ATTENTION ce prograaae ne con- 
155 ' trole pas le aoteur, celui-ci 


160 ‘ ne devra pas etre raccorde. 

l i5 • ♦-♦ 

170 ' I coaaande relais ! 

175 ' ♦.♦ 

180 CLS:PRINT:PR1NT*1er TEST: les 

relais basculent* 

185 6OSUB600 ' sortie iapriaante 
190 FORI«1TO20 

195 : POKEI301.1 ' REL 2 actionne 

200 : 4=200:6OSUB900 ' NAIT 

205 : POKEI301.2 ' REL 3 actionne 

210 : 4=200:6OSUB900 

215 NEXT 

220 POKEI301.0 

225 4=1000:GÛSUB900 

230 GOSUB700 ‘ retour au clavier 

235 6OSUB800 ' test clavier 

24g ♦-♦ 

245 ' ! test entree PA 5 ! 

250 * ♦-t 

255 CLS:PRINT:PRINT"2eae TEST* 

260 ' pour ce 2eae test il faudra 
265 ' feraer le circuit contact en- 
270 ’ granaga (PORT A 5) avec un in- 
275 ' terrupteur ou avec un fil vo- 
280 ' lant (doaino en haut a gauche 
285 ' de l'interface). 

290 GOSUB600 

295 PRINT:PRINT*faraez le circuit POR 
T A 5* 

300 PRINT:PRINT*delais 10 secondes* 
305 AT=0 
310 REPEAT 
315 AT-AT+1 
320 IFAT<420THEN330 
325 CLS:PRINT s PRINT*1 a circuit n‘a pa 
s ete ferae*:6OSUB700:EXPLODE:END 
330 UNT1L(PEEK(1301)AND32)=0 
335 PRINT:PRINT*le circuit a ete fera 
e* 

340 4=1000:6OSUB900 

345 PRINT:PRINT’ouvrez le circuit* 

350 PRINT:PRINT*delais 10 secondes* 
355 AT=0 
360 REPEAT 
365 AT=AT*1 
370 IFAT<400THEN380 
375 CLS:PRINT:PRINT'l• circuit n'a pa 
s ete ouvert * :6OSUB700:E1PL0DE: END 
380 UNTIL(PEEK(#301)AND32)*32 
385 PRINT:PRINT*le circuit a ete ouve 
rt* 

390 4=1000:6OSUB900 
395 6OSUB700 
400 6OSUB800 

4B5 • ♦-♦ 

410 ' ! coaaande relais ! 

415 ' ! par 1'entree PB 5 ! 

420 * +.♦ 

425 CLS:PRINT:PRINT'3eae TEST* 

jTa cnniiRABR 

435 PRINT:PRINT*1 a faraeture et l'ouv 
erture du circuit* 

440 PRINT'PORT A 5 fera basculer les 
relait.* 

445 PRINT:PRINT*15 secondes d'essais* 

450 AT=0 

455 REPEAT 

460 AT«AT+1 

465 P=PEEK<0301)AND32 

470 IFP«32THENPOKEI301.1 

475 1FP=0THENPQKEI301,2 

480 UNTILAT=600 

485 POKEI301.0 

490 4=1000:6ÔSUB900 

495 GOSUB700 

500 CLS:PRINT:PRINT*FIN DES ESSAIS* 
505 END 

597 • ♦-♦ 
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FIGURE A 
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598 ' ! sortie îapriaante ! 

599 ' ♦.♦ 

688 PING: WAIT58 

618 P0KEI3BE,127 ’ (81111111) pas 
615 d'interruption par le VIA 6522 
628 POKEI303.31 ' (88811111) DDRA 
625 ' PORT A B,1,2,3,4 en sortie 
630 ' 5,6,7 an antree 

635 'la configuration du VIA étant 
648 aodifiee le générateur sonore 
645 'ne fonctionne plus ainsi que 
658 'le clavier et l'instruction NAIT 
655 P0KEI381,8 ' sorties PORT A a 8 
668 POKEt3B0,PEEK(1300)AND239 
665 '239 * 11101111 bit 4 (STROBE) 

670 force a 0 l'interface fonctionne 
675 RETURN 

697 ' ♦.♦ 

698 ' ! retour au clavier ! 

699 ' ♦-♦ 

788 P0KE«3ee,PEEK < *380)OR 16 

785 16 = 88018888 bit 4 (STROBE) 

710 force a ls arrêt de l'interface 
715 POKE4303,255 ’ (11111111) DDRA 

728 * tout le PORT A en entree 

725 H=250:6OSU8900 ' attendre action 
730 ' du relais STROBE 

735 POKEI30E,192 ' (11088800) 

740 interruptions du VIA 6522 auto- 
745 ’risees: retour au clavier 
750 PING:RETURN 

797 ' ♦.♦ 

798 ' ! test clavier ! 

799 ' ♦.+ 

800 PRlNT:PRINT"appuyez sur une touch 
e*:P0KES2DF,0:6ETAS:RETURN 

897 ' +.♦ 

898 ' i reaplace NAIT ! 

899 ' ♦.♦ 

988 F0RZ S 1 TON: NEXT: RETURN# 


LISTE DES COMPOSANTS 


Résistances 

RI, R2, R5, R7 . . 1 KO 1/4 W 

R4, R6, R8. 10 KO 1/4 W 

R3 .4,7 KO 1/4 W 

R9 . 330 O 1/4 W 

Diodes 

DI .1N4007 

D2, D3, D4, D5, D6 . . . 1N4148 

Diodes électroluminescentes 

L1, L5.LED rouge 

L2, L3, L4 .LED verte 

Transistors NPN 

Tl, T3, T5.2N2222 

T2, T4, T6 .BC2378 

Condensateurs 

Cl 2200 nf 35 volts électrochimi¬ 
que à sorties radiales 
C2 0,1 (100 nF) 

Relais 

REL 1, REL 2, REL 3, 3 relais type 
européen, 12 volts 2 RT avec 

support. 

Fusible 

1 fusible 500 mA avec support pour 
circuit imprimé. 

Circuit imprimé 

1 plaque perforée (pas de 2,54) pas¬ 
tillée de 100 mm * 100 mm au mini¬ 


mum ou circuit imprimé traditionnel 
à réaliser en épaississant les circuits 
dessinés. 

Filerie 

Fil rigide de câblage (diamètre 4/10 
à 5/10 de mm). 

Fil souple isolé de petit diamètre pour 
branchement du moteur. 

Fil en nappe 20 fils (environ 50 cm) 
pour prise à sertir (liaison sortie 
imprimante vers l'interface). 

Prises 

1 prise femelle 20 broches à sertir 
pour la sortie imprimante de 
l'ordinateur. 

10 sections de domino électricien 
(petit modèle), voir plan d'implanta¬ 
tion des composants. 

Interrupteur 

1 mini interrupteur pour circuit 
imprimé au pas de 2,54 mm. 

Piles 

1 pile 1,5 volt (type R 20) 

1 pile plate 4,5 volts 
1 alimentation 12 volts ou 3 piles 
plates de 4,5 volts en série ou 
équivalent! 


\/3 UN EDITEUR VIDEOTEX PRO POUR VOTRE TELESTRAT 


\/3 LA PERFECTION ï 

\/3 est un éditeur vidéotex dynamique. Il respecte scrupuleusement 
toutes les subtilités du standard. 11 met à votre disposition 
la richesse de l’affichage dynamique et de l’animation. Il 
permet l’affichage le plus rapide, la netteté, la concision, 
la propreté d’un travail professionnel. 

\/3 L’INTELLIGENCE : 

\/3 a une mémoire d’éléphant. Dessinez-lui un mouton, une fois, 
une seule, et il saura désormais mettre un mouton là où vous 
voudrez. Il suffira de lui dire: 'mouton’. Tout simplement ! 

\/3 L’EFFICACITE : 

\/3 vous décharge au maximum des labeurs subalternes et 
répétitifs: créez ! 

\/3 LE PRIX CLUB : 190 F tout compris, adhésion, droits d’auteur 

frais d’édition et de port. 

\/3 Démo, Hot Line : 93 44 44 77 code V3 

\/3 Commande : CEITEAO 6, rue Centrale 06000 NICE 
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ETUDE SUR LE CODAGE 
DES NOMBRES REELS 


Thierry LEGAL 


Vous vous êtes certainement heurté au problème suivant : comment l’OKIC 
code-t-il les nombres réels et comment, en langage machine, utiliser ces routi¬ 
nes ? Voici quelques explications. 




Il est peut être utile, avant d'aborder 
les routines de travail, de rappeler 
comment l'Oric "traite" les nombres 
réels. En effet, le microprocesseur 
6502 qui est son "cerveau" ne sait, 
comme la plupart des microproces¬ 
seurs, que travailler sur des entiers. 
Dans le cas présent, il s'agit de nom¬ 
bres à 8 bits, des octets. Ce sont 
donc les diverses routines de la ROM 
qui s'occupent des calculs en "Vir¬ 
gule Flottante". Regardons d'abord 
comment est effectué le codage de 
ces nombres en mémoire. 
Contrairement aux entiers qui ne 
demandent que 2 octets, les réels en 
nécessitent 5. Un pour l'exposant et 
les 4 autres pour la mantisse. Pour 
ceux qui ne sont pas familiarisés 
avec ce vocabulaire, on peut imager 
un peu les choses en disant que la 
mantisse (les 4 derniers octets) 
donne les différents chiffres de ce 
nombre et que l'exposant indique la 
place de la virgule. 

Afin de pouvoir suivre (ou vérifier !) 
ce qui va suivre, le programme 
COD1 va vous permettre d'obtenir 
le codage effectué par Oric pour tout 
nombre que vous lui soumettrez. 
Inversement, vous pourrez aussi 
obtenir le nombre correspondant aux 
5 octets que vous aurez entrés. 

Le premier Octet 

On l'a déjà dit, c'est l'exposant. 
Voyons d'un peu plus près son rôle. 
Tout d'abord, il faut savoir que si l'on 
peut écrire, comme sait le faire une 


calculatrice, un nombre réel X sous 
la forme : X = signex Ax 10 B où A 
est un réel tel que 1 > A ^ 1 /10 et B 
un relatif, on peut aussi l'écrire en 
base 2 : X = signe x M x 2 e où M est 
un réel tel que 1 >M^ 1/2 et E un 
relatif. Ce dernier (E = exposant) est 
codé sur un seul octet, or il peut être 
aussi bien positif que négatif. Les 
programmeurs de la ROM ont choisi 
de la coder en "complément à #80" 


ou "complément à 128 = 2 7 ". On 
peut ainsi faire évoluer E entre +127 
(codé 127 + 128 = 255 = FF) et -127 
(codé -127 + 128 = 1 =01). 

E = 0 est ici réservé pour X = 0 
Ainsi : 

1 = .5 x 2’-E = 1 + 128 = 1 23 •■= 
#81 

2 = .5x2 2 — £ = 2 + 128 = 130 = 
#82 
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COD 7 


11 REM Codage des Reels en Mémoire, 

12 REM- : - 

13 : 

14 CLEAR ;R=0 :PRINT FRINT 

15 PRINT "Codage ou Décodage ? 

16 GET AK :PRINT AS.IF A#="D" THEN 30 

17 : 

20 INPUT "Nb a coder \R PRINT 

21 FOR 1=1 TO 5: F'=PEEK (DEEK (#90+1+1) 

22 AS=RIGHTp<HEX«(P+«100>,2) 

23 B*="“ B=P : REF'EflT 

24 Bf>:=hIDB("01M+(B AND 1) ,1)+BS 

25 B=INT(B/2) UNTIL B=0 

26 BS=RIGHTS ("0000000"+B», 8) 

27 PRINT 11PjAS,B« NEXT .PRINT RUN 

28 

30 PRINT "Vos Nombres:" FOR 1=1 TO 5 

31 PRINT Ii : INF'UT N 

32 IF N<0 OR N>255 THEN PING ;GOTO 31 

33 PORE DEEK(H9C)+1+1•N :NEXT PRINT 

34 PRINT "dorment ... A=" : R RUN 

35 

36 -----f 


e t 

1/4 = .5 x 2 1 — E = -1 + 128= 127 
= #7F 

Comme de plus 1/2^M<1, on 
obtient les limites de ce codage (en 
valeur absolue) : 

MAX = 1 x2 127 = 1 ;70141 1835x 
10 + 38 

MIN = .5 x 2 127 = 2.9 3 8 7 3 5 8 7 7 x 
10 39 

Le codage de ces deux nombres est 
donné en annexe avec quelques 
autres. En utilisant le programme 
COD1, vous pourrez vérifier tout 
cela en ne vous intéressant qu'au 
premier octet. 

La Mantisse 

Elle est donc formée des 4 derniers 
octets. On obtient alors un nombre 
binaire à 32 chiffres. Par convention, 
on a pris au départ : 1 /2 ^ M < 1 . Les 
poids respectifs de ces bits seront 
donc : 2 \ 2‘ 2 ,2 32 . Dans ce 
codage et vu que M ^ 1 12 , le premier 
bit serait toujours à 1 . Il suffit alors 
de le savoir et cela permet d'utiliser 
ce bit pour autre chose : il va servir 
à indiquer le signe du nombre. Pour 
cela, on le mettra g 1 si X<O et à 
O si X^O. Or> obtient par exemple: 
5 10 = (101.) 2 = .101 2 x2 + 3 


= >E= 128 + 3= 131 
M = /00100000/- O O -/- O --/ 

qui se codera : 131,32,0,0,0 
par contre (-5) donne :131,160,0, 
0,0 car 32 + 128 = 160. 

Avec un peu d'habitude, ce codage 
n'a rien de bien compliqué. 


Quelques remarques 

— Il est évident que tout nombre 
s'écrivant sur plus de 32 bits en 
binaire n'est pas entièrement sauvé 
en mémoire. L'erreur peut varier 
dans ce cas de 2 32 /.5 à 2 32 /1, 
c'est-à-dire que dans tous les cas. 


COD 3 


Assemblage 




9800 


REM- 

Exemple d'utilisation 

9800 


REM FACTO 

des points d'entree 

9800 


REM &(N) = N! 

en ROM, (V.Atmos) 

9800 


REM- 


9800 


REM 


9800 MOVFH 


EQU KDE7B 

Mem (Y!) -> Accl 

9800 M0VMF 


EQU KDEAD 

Accl -> Me» OflC 

9800 FADD 


EQU )>DB22 

Accl+Me» -> Accl 

9800 FMULT 


EQU SDCED 

Accl*Me» -> Accl 

9800 


REM- 


9800 

A098 

LDY HF-H 

Ici Accl = N 

9802 

A23E 

LDX «F-L 

on le stocke en Me» F 

9804 

20ADDE 

JSR MOVMF 


9807 


REM 

Boucle de calcul. 

9807 LOOP 

A098 

LDY HM0INS1-H 

YA=Adresse de (-1) 

9809 

A939 

LDA HM0INS1-L 

On l'additionne a N 

980B 

2022DB 

JSR FADD 

=> N=N-1 dans Accl 

980E 

A5D0 

LDA HD0 

Test si N=0 

9810 

F020 

BEQ FIN 

si oui : fin de boucle 

9812 

A098 

LDY HN-H 


9814 

A243 

LDX HN-L 

Stocker N en Mem N 

9816 

20ADDE 

JSR MOVMF 


9819 

A098 

LDY «F-H 

YA = Adresse de Mem F 

981B 

A93E 

LDA HF-L 


981D 

20EDDC 

JSR FMULT 

Multiplier N par F .. 

9820 

A098 

LDY «F-H 


9822 

A23E 

LDX «F-L 

et le ranger en Me» F 

9824 

20ADDE 

JSR MOVMF 


9827 

A098 

LDY «N-H 


9829 

A943 

LDA «N-L 

Mettre dans Accl la 

982B 

207BDE 

JSR HOVFM 

nouvelle valeur de N 

982E 

A5D5 

LDA SD 5 

et. si elle est > 0. 

9830 

10D5 

BPL LOOP 

continuer le calcul. 

9832 


REM 

(N non entier ou < 0) 

9832 FIN 

A098 

LDY «F-H 


9834 

A93E 

LDA HF-L 

Placer F dans Accl 

9836 

407BDE 

JMP MOVFM 

pour son utilisation. 

9839 


REM- 


9839 MOINS1 

818000 

HEX 8180000000 

Codage de (-1) en Mem 

9830 

0000 



983E F 


RES 5 

Zone pour rangement 

9843 N 


RES 5 

des valeurs N et F. 

9848 


REM- 


ok. 

Legal Thierry 11/85. 
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Points d’entree en 

Rom sur Oric 

AB5 

DF49 DF31 Abs(Accl) 





INT 

DFBD DFA5 Int(Accl) 





5GN 

DF21 DF12 5qn(Aecl) 

noin 

Adresse 

Fonction 

FNEGAT 

DC02 E26D - Accl 


At»os 

0ric-l 

SUR 

E22E E22A Sqr(Accl) 




Leqal Th, 85 

POWER 

E235 E231 Acc2 A Me» 




P0WERA 

E238 E234 Acc2 A Accl 

MOVFM 

DE7B 

DE73 

Me» -) Accl 

EXP 

E2AA E2A6 Exp(Accl) 

MOVMF 

DEAD 

DEA5 

Accl -> Me» 

LN 

D0AF DC79 Ln (Accl) 

M0VAF 

DEE5 

DEDD 

Accl -> Acc2 

L0G 

DDD4 DODO Loq(Accl) 

M0VFA 

DED5 

DECD 

Acc2 -) Accl 

RND 

E34F E34B Rnd(Accl) 

M0VAH 

DD51 

DD4D 

Me» -) Acc2 

5IN 

E392 E38E 5in(Accl) 

FADD 

DB22 

DA97 

Me» + Accl 

005 

E38B E387 Cos(Accl) 





TAN 

E3DB E3D7 Tan(Accl) 

FADDA 

DB2A 

DA9F 

Acc2 + Accl 







AT N 

E43F E43B Atn(Accl) 

ADD.5 

DB04 

DA79 

Accl + 1/2 



F5UB 

DB0B 

DA80 

Me» - Accl 



F5UBA 

DB0E 

DA83 

Acc2 - Accl 

GIVAYF 

Convertit entier en reel 

FMULT 

DCED 

DCB7 

Me» * Accl 

CVINT 

cvrt Accl en entier AY=(#33) 

FMULTA 

DCF5 

D0BF 

Aec2 * Accl 

0UT 

'écrit 1 Accl a partir de #100 

MULT10 

DDA7 

DDA3 

Accl * 10 

IN 

calcul reel et le stocke Accl 

FDIV 

DDE4 

DDE0 

Me» / Accl 



FDIVA 

DDE7 

DDE3 

Acc2 / Accl 



FDIV2 

DDCE 

DDDA 

Acc2 / Me» 

Accl 

Accumulateur principal #D0-#D5 

DIVIO 

DDC3 

DDBF 

Accl / 10 

Acc2 

Accumulateur secondaire #D8-HDD 

DIVA10 

DDC6 

DDC2 

Acc2 / 10 

Me» 

Reel en me» code sur 5 octets 

GIVAYF 

D499 

» 

D3ED 

AY -> Accl 


et defini par son adresse Ad=YA 

CVINT 

0920 

D871 

Accl -> AY 


(Y=Hiqh(Ad) et A=Low(Ad) sauf 

0UT 

EÛD5 

E0D1 

Ecrit Accl 


pour MOVMF ou X au lieu de A.) 

IN 

CF 03 

CE77 

Lit Accl 








• 


elle est inférieure à 5x 10 10 . Cela 
explique que l'Oric ne possède que 
9 chiffres significatifs. 

— Pour augmenter la "précision" 
(ou le nombre de chiffres significa¬ 
tifs), il faut augmenter le nombre de 
bits de la mantisse. 

— Par contre, pour augmenter 
l'étendue, c'est le nombre de bits de 
l'exposant qu'il faudrait augmenter. 

— L'Oric utilise 2 accumulateurs 
flottants pour travailler sur ces 
réels : Acc 1 de # DO à # D5 et Acc2 
de # D8 à #DD. Dans ces Acc, le 
premier bit de la mantisse est tou¬ 
jours laissé à 1 et c'est le bit 7 d'un 
sixième octet (#D5 ou # DD) qui 
indique le signe. Cela permet d'ac¬ 
célérer et de faciliter le travail. 

Utilisation des points-d'entrée 

Ces codages et décodages, il n'est 
pas nécessaire de les faire soi-même 
lorsque l'on utilise les réels (heureu¬ 
sement !). Il existe en ROM de nom¬ 
breuses routines concernant la con¬ 
version, le transfert et le calcul dans 


ce format. Il vous suffira de les utili¬ 
ser. La liste de points-d'entrée ci- 
jointe vous donne les plus courants. 
Elle n'est bien sûr pas exhaustive. 
Pour ce qui est des calculs, le résul¬ 
tat est toujours stocké dans l'accu¬ 
mulateur principal (Accl). Mais 
attention car Acc2 est détruit dans 
la plupart des calculs. Il vous est très 
facile de transférer vos nombres 
dans la RAM. On utilise pour cela les 
"MOV". Dans la liste ci-jointe, Mem 
désigne justement une adresse de la 
mémoire pour ces transferts. Elle est 
(sauf pour MOVMF) définie par la 
donnée de YA ou Y = partie haute de 
l'adresse et A = partie basse. Ainsi, 
si on veut placer dans Accl la valeur 
codée à partir de l'adresse # 1234, 
il suffit de faire : 

LDY #$12 
LDA #$34 
JSR MOVFM 

Le meilleur moyen de comprendre 
cela est de prendre un exemple sim¬ 
ple. Le programme "FACTO" ci-joint 
est là pour cela. Il fait jouer à la com¬ 
mande &(N) le rôle de N! L'al- 


gorythme utilisé est le suivant : 

N dans Accl 
F = N 
F = F x N 
N = N-1 

N<0 ? oui : F dans Accl et retour 
BASIC 

Après avoir rentré le programme 
C0D4, sauvez-le puis lancez-le. Il 
permet de créer cette commande 
factorielle. En tapant FOR 1=1 TO 
20 :? I,&(I):NEXT, vous pourrez 
constater que tout équivalent BASIC 
serait beaucoup plus lent. 

Aux routines MOV, il faut ajouter : 
GIVAYF qui transforme l'entier 
N = 256 x A + Y en réel dans Accl 
CVINT qui fait exactement l'inverse 
IN qui "lit" le réel pointé par TXTPTR 
(#E9) et le code dans Accl. 

Les lecteurs de THEORIC attendent 
maintenant vos programmes lB 



10 REM- 

12 REM Routine pour 6(N)=N! LT ' 

14 REM..— 

16 

18 HIMEM #97FF : CL5 :F0R 1=0 TO 7 
20 PRINT 7-1; : AD=#98Û0+8*I : 5=0 
22 FOR J=0 TO 7READ A*:A=VAL("#‘+AiO 
24 P0KE AD+J,A :S=S+A NEXT :READ 50 
26 IF 5=50 THEN NEXT GOTO 30 
28 F'RINT"Erreur liqne'103+I ZAP END 
30 IF PEEK(HFFFE)=40 THEN G05UB 44 
32 PING : DORE H2FC,H9800 :CL5 
34 PRINT "Routine Factorielle ok." 

36 ’CSAVE "FACTO,LM",A#9800,E#983F 
38 PRINT:PRINT "De»o "FOR 1=1 T0 20 
40 PRINT 1,5(1) NEXT -END 
42 ' 

44 REM— Adaptation Onc-1- 

46 DOKE H9805,HDEA5 DOKE #9817,HDEA5 
48 DOKE #982C,HDE73 DOKE H9837,HDE73 
50 DOKE #9825,#DEA5 DOKE K980C,HDA97 
52 DOKE H981E,#DCB7 RETURN 
54 * 

100 REM- 

103 DATA A0,98,A2,3E,20,AD,DE,A0,#463 

104 DATA 98,A9,39,20,22,DB,A5,D0,#40C 

105 DATA FO,20,AO,98,A2,43,20,AD,#3FA 

106 DATA DE,A0,98,A9,3E,20,ED,D0,#4E6 

107 DATA A0,98,A2.3E,20,AD,DE,A0,#463 

108 DATA 98,A9,43,20,7B,DE,A5,D5,#477 

109 DATA 10,D5,A0,98,A9,3E,40,7B,#3CB 

110 DATA DE,81,80,00,00,00,EA,EA,#3B3 

111 REM--s 
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Marc SEVERAC 


C e logiciel a été conçu pour MICRODISC sous SEDORIC, tirant par¬ 
ti des possibilités offertes par ce système d'exploitation. Il 
permet de gérer des cassettes vidéo, offrant diverses possibi¬ 
lités de recherche et de mise à jour. 



Ce programme fait appel à un mas¬ 
que de saisie WINDOW. Donc, indé¬ 
pendamment du programme princi¬ 
pal, il faut créer ce WINDOW. Cela 
ne peut se faire qu'en mode direct. 

COMMENT 

CREER LE WINDOW ? 

WINDOW est un masque d'écran 
qui permet de saisir les données. 
Sous SEDORIC, il faut taper l'ins¬ 
truction suivante CREATEW'VI- 
DEO. WIN'. Ensuite, vous êtes en 
éditeur pleine page. Vous pouvez 
ainsi définir les titres qui compose¬ 
ront votre masque de saisie. Tous 
les caractères peuvent être écrits. 
Les champs de données sont défi¬ 
nis par CTRL W, ils apparaissent 
comme un pavé plein à l'écran. A 
tout moment, CTRL S peut sauver 
l'écran et CTRL C peut en sortir. 
Pour plus de précisions, se repor¬ 
ter au manuel du SEDORIC, page 
62. 
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Pour le programme Vidéothèque, 
10 champs ont été définis de la fa¬ 
çon suivante : 

- Champ 1 - n° de cassette : 

4 carac (CTRL W 4 fois) 


-Champ 2-titre 1 : 

20 carac (CTRL W 20 fois) 

- Champ 3 - Tl : 

20 carac (CTRL W 20 fois) 

- Champ 4 - compteur 1 : 
4 carac (CTRL W 4 fois) 










tuée sur le numéro ou sur le titre. 
Dans ce dernier cas, on pourra re¬ 
chercher un titre complet ou les six 
premiers caractères. L'avantage de 
ce choix est qu'il permet l'affichage 
de toutes les fiches commençant 
par un même nom. Ex. : "Tintin". 

• Lister le fichier 

Les fiches défilent sur l'écran. On 
peut interrompre momentanément 
la consultation. 

Il est évident que ce logiciel pourra 
être adapté à d'autres applications 
que la vidéo, moyennant une remi¬ 
se en forme du masque de saisie 
et, peut-être, des critères de recher¬ 
che. 


- Champ 5 - titre 2 : 

20 carac (CTRL W 20 fois) 
-Champ6-T2: 

20 carac (CTRL W 20 fois) 

- Champ 7 - compteur 2 : 

4 carac (CTRL W 4 fois) 

-Champ 8-titre 3: 

20 carac (CTRL W 20 fois) 

- Champ 9 - T2 : 

20 carac (CTRL W 20 fois) 

- Champ 10 - compteur 3 : 

4 cara r (CTRL W 4 fois) 

Les champs Tl, T2, T3 sont la suite 
de chaque titre correspondant. Par 
exemple, le premier titre sera com¬ 
posé du champ ’titreT + le champ 
’T 1 ', si le titre à saisir dépasse 20 ca¬ 
ractères. 

Une fois le WINDOW créé, il ne 
vous reste plus qu'à taper le pro¬ 
gramme principal. 

Une fois lancé, le programme affi¬ 
che les options suivantes : 

• Saisie d'une cassette 

Fait apparaître le masque de saisie 
pour compléter le fichier. Le numé¬ 
ro de cassette est mis à jour auto¬ 
matiquement. 

• Modification d'une fiche 
Permet la mise à jour du contenu 
d'une cassette. Le logiciel deman¬ 
de le numéro de la cassette à modi¬ 
fier et présente la fiche correspon¬ 
dante. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 



3 REM *- t 

5 ' t Vidéothèque personnelle A' 

6 REM *-* 

7 ' 

8 ' Marc Sévérac 1987 

9 ' 

1 1 ' 

12 REM *- 4 . 

13 ' 


14 ' Ce programme permet- à l'utilisa¬ 

teur de créér un fichier qui per- 

15 'met de gérer ses vidéocassettes. 

16 ' 

17 ' Le programme crée à la 1ère uti¬ 

lisation 50 fiches 'blanches'. 

18 ' 

19 ' L'utilisateur peut rechercher 

le contenu d'une Cassette en 

20 'indiquant son numéro,ou son 

titre (exact ou approximatif) 

22 ' 

23 ' Le fichier qui tourne avec ce 

logiciel est du type 'Direct'. 

24 ' 

25 ' Il tourne sous MICRODISC avec 

DOS Sédoric. 

26 ' 

27 ' Lors de la 1ère utilisation vous 

pouvez modifier le nombre de fi— 

28 ' ches. 

29 ' 

30 ' Il suffit pour cela de modifier 

ce nombre en ligne 148 (Var XX) 

31 ' 

32 ' Un fichier 'POINTEUR.DAT'est 

également créé , il sert à 
37 'positionner automatiquement la 
cassette suivante à saisir. 


• Recherche d'une cassette 

Cette recherche peut être effec- 
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38 ' 

50 ' 

100 REM *- 


105 REM * DEBUT 

110 REM *- 

140 ACCENT SET 
145 DIM WI»(10) 

148 XX = 50 

150 FF $ = "VIDEO.DAT" 

155 PP» = "POINTEUR.DAT" 

160 SEARCHFF»:IFEFTHEN OPEN R,FF»,1 
OTO175 


170 

OPEN R 

,FF »,1, 

162, 

XX 




1045 

TX» = " En fin de saisie -> CTR 

175 

OPEN S 

,PP»,2 : 

I F& ( 

-2) - 

- 

1THENPUT2,1 

L C 

":GOSUB 9000 

1 80 

FIELD 

1,NCASS 

TO 

< 4, 

/ 

WI»(0) 

6 

1050 

IFEW THEN WINDOW ELSE WINDOWVID 

190 

FIELD 

1,TITR1 

TO 

» 20, 

/ 

WI ♦( 1 ) 

22 

EO.UIN 

" 

195 

FIELD 

1 , Tl 

TO 

♦ 20, 

/ 

UI» <2) 

22 

1 055 

TX»=" V = Valide / M = Modifie / 

200 

FIELD 

1,CPTR1 

TO 

» 4, 

/ 

WI » ( 3 ) 

6 

ESC = 

Menu"*: GOSUB9000 

210 

FIELD 

1,TITR2 

TO 

♦ 20, 

/ 

WI» < 4) 

22 

1060 

GETT» 

215 

FIELD 

1 , T2 

TO 

♦ 20, 

/ 

UI«(5) 

22 

1065 

IFT» = "V"ORT» = "v"THENGOSUB5000: GO 

220 

FIELD 

1,CPTR2 

TO 

♦ 4, 

/ 

WI♦(6) 

6 

SUB1900 

230 

FIELD 

1,TITR3 

TO 

♦ 20, 

/ 

WI♦(7) 

22 

1070 

IFT» = ”M"ORT♦ = "m"THEN1000 

235 

FIELD 

1 ,T3 

TO 

♦ 20, 

/ 

WI»(8) 

22 

1075 

IFT» =CHR»(27)THEN 300 

240 

FIELD 

1,CPTR3 

TO 

♦ 4 

/ 

WI♦(9) 

6 

1080 

GOTO300 


250 IF EF THEN 300 ELSE GOSUB 10500 

300 REM*-* 

310 REM* Menu Principal * 

320 REM*-* 

330 CLSIPAPERO: INK3:POKE618,10 
335 GOSUB10000 :GOSUB10050 :GOSUB9000 
340 PLOT2,4,10:PLOT2,3,10 :PLOT3,4,2 : P 
LOT3,3,6 

350 PRINTà10,4 :"Vidéothèque personnel 
le" 

360 PRINTà 1 0,3.: "V i déothèque personnel 
le" 

370 PLOT2,6,10:PLOT2,5,10:PLOT3,6,1 : P 
LOT3,5,1 

380 PRINTà 10,5.: "----- 


390 PRINTà10,6'"- 

_ _ Il 

400 PLOT2,12,1:PLOT2,14,6:PLOT2,16,5 
405 PLOT2,18,2 

410 PRINTàS,12;"<1> -> Saisie d'une c 
assette." 

420 PRINTàS, 14.: "<2> -> Modification d 
e fiche." 

430 PRINTàS, 16.: "<3> -> Recherche d'un 
e cassette." 

435 PRINTàS, 18.: "<4> -> Listage du fie 
hier." 

440 PRINTàS, 20.: "<5> -> Fin." 

450 PLOT11,12,6 : PLOT11,14,6:PL0T11,16 
,6 :PLOTl1,20,6 
455 PLOTl1,18,6 
500 GETT♦ 

510 IFT» O"1"ANDT»O"2"ANDT»O"3"ANDT 
i<>"4"ANDT» O"5"THEN500 


515 

520 

) 

1000 

1005 

1010 

1015 

1020 

1025 

1030 

1032 

1035 


T=VAL(T») 
ON T GOTO 


1000,2000,3000,3595,450 


Saisie de cassette 


REM*- 
REM* 

REM*- 

CLS 

REWIND2 
TAKE2,N 
TAKE1,N 
GOSUB5200 

GOSUB10000 :GOSUB9000 


1 900 
1910 
1920 
1930 
1935 
1940 
2000 
2010 
2020 
2030 
2040 
2060 


Poser fiche ds fichier 


REM*- 
REM* 

REM*- 

PUT 1,N 

REWIND2:PUT2,N+1 
RETURN 

REM*- 


Modif ica tion 


■* 

*: 

-* 


de la casset t 


12,3.: CD» , C , J 


REM* 

REM*- 

CLS 

PL0T2,12,1 
PRINTà3,12.: "Numéro 
e à modifier:") 

2070 LINPUT à 37 
2080 CD=VAL(CD») 

2085 IF CD> XX THEN2070 

2086 CLS 
2090 TAKE1 ,C-D 
2100 GOSUB5200 

2110 TX» = " En fin de saisie - 

L C ":GOSUB 9000 

2120 IFEW THEN UINDOW ELSE WINDOU"VID 
EO.WIN" 

2130 TX» = " V = Valide / M = Modifie / 
ESC = Menu":GOSUB9000 
2140 GETT» 

IFT» = "V"THENG0SUB5000: PUT1,CD 
IFT» = "M"THEN2080 
IFT»=CHR<(27)THEN 300 
GOT0300 

REM*-* 

REM* Menu Recherches * 

REM*-* 


CTR 


2150 

2160 

2170 

2180 

3000 

3005 

3010 

3015 

3020 


CLS:GOSUB10000 :GOSUB9000 
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3025 PLOT2,3,10 :PLOT2,4,10:PLOT3,3,2: 
PLOT3.4,5 

3030 PLOT2,8,1:PLOT2,10,6 
3035 PR INT à 15,3.: "RECHERCHES" 

3040 PRINTà15,4;"RECHERCHES" 

3045 PRINTà 6, 8 ;"<1> -> Par le ti 

tre" 

3050 PRINTà6,10;"<2> -> Par numé 

ro" 

3055 GETT$ 

3060 IFTi="1"THEN3085 
3065 IFT$ = "2"THEN3410 

3070 REM*-* 

3075 REM* Recherches par le titre * 

3080 REM*-* 

3085 CLS 
3090 PLOT2,5,1 

3095 PR INTà 8,5.: "RECHERCHES PAR LE TIT 
RE" 

3100 PRINTà8,6'"- 

3105 PR INTà 3,8.: " <1> Sur le titre exac 
t " 

3110 PRINTà3,10;"<2> Sur les premiers 
caractères (6)" 

3115 GETR* 

3120 IFR< = "1"ORR$ = "2"THEN3130 
3125 G0T03115 

3130 PLOT2,14,5 

3131 PR INTà 6,14.: "Taper ci-après votre 
t i tre" 

3135 ' 

3140 LINPUT à 3,18," " , 40TR* , C , J 

3145 REWIND2:TAKE2,N 

3150. FORA= 1 TON 

3155 TAKE1,A:GOSUB5200 

3160 L$=LEFTi(TRi,6) 

3165 El$=WI t (1)+WI $(2) 

3170 E2$=WIi(4)+WI$(5) 

3175 E3$=WI♦(7)+WI$(8) 

3180 L1*=LEFT«(El *,6) 

3185 L2i=LEFT$(E2*,6) 

3190 L3*=LEFTi(E3«,6) 

3195 IFR$="1"THENGOSUB3365 
3200 IFR$ = "2"THENGOSUB3375 
3205 ' 

3210 NEXT 
3215 CLS 

3220 PLOT2,9,14:PLOT2,10,14:PLOT3,9,1 
:PLOT3,10,2 

3225 PRINT à 13,9 J"Fin de fichier !!" 
3230 PRINTàl3,10;"Fin de fichier !!" 
3235 TX*=*" °ESPACE! Pour retour 

menu "IGOSUB9000 

3240 GETT$:GOT0300 
3250 ' 

3255 CLS 

3260 PLOT3,1,10:PLOT3,2,10 

3265 PRINTà10 >1 ;"CASSETTE NUMERO : "; 


WI t (0) 

3270 PR INTà 10,2.: "CASSETTE NUMERO : 
WI$<0) 

3275 PLOT2,1,2:PL0T1,8,1:PL0T1,13,1:P 
LOTI,18,1 
3280 PLOT2,6,6 

3285 PRINTà2,6.: WI < ( 1 ) j WI $ ( 2) 

3290 PRINTà2,8;"Cptr : ";WIt<3) 

3295 PRINTà2,ll.:WI$(4);WIi(5) 

3300 PRINTà2,13;"Cptr : ";WI*<6 > 

3305 PR INTà2,16 ;WI $(7) ;WI«<8 ) 

3310 PRINTà2,18;"Cptr : ";WI*(9) 

3315 PRINTà2,21 ; "- 


3320 PLOT2,25,1 

3325 PRINTà4,24;" e S! Suite recherche 
sur le titre" 

3330 PRINTà4,25;"*ESPACE! Pour retour 
menu" 

3335 GETT< 

3340 IFTi=" "THEN300 
3345 IFTi="S"THENRETURN 
3350 G0T03335 
3355 ' 

3360 REM- 

3365 IFTR$ =E1$ORTRi=E2$ORTR$ =E3 $THENG 
OSUB3250 
3370 RETURN 

3375 IFLi=El$0RL$=E2$0RL*=E3*0RL«=L1♦ 
ORLi=L2iORL$=L3$THENGOSUB3250 
3380 RETURN 
3385 ' 

3390 REM*- 

3395 REM* Recherche par numéro * 

3400 REM*- 

3405 ' 

3410 CLS 

3415 PRINTàl 1 ,4.: "RECHERCHE PAR NUMERO 

II 

3420 PLOT2,12,1 

3425 PRINTà3,12;"Numéro de la cassett 
e recherchée:"; 

3430 LINPUT à 36,12,3; CD*,C,J 
3435 CD=VAL(CDi) 

3437 IF CD>XXTHEN3430 
3440 ' 

3445 ' 

3450 TAKE1,CD 
3455 GOSUB5200 
3460 CLS 

3465 PLOT3,1,10:PLOT3,2,10 
3470 PRINTà10,1 ;"CASSETTE NUMERO : "; 

WI$(0) 

3475 PRINTà10,2;"CASSETTE NUMERO : "; 

WI$(0) 

3480 PLOT2,1,2:PL0T1,8,1:PL0T1,13,1:P 
LOT 1,18,1 
3485 PLOT2,6,6 

3490 PRI NT à 2,6 ;WI $(1);WIi(2) 
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3495 PRINTà2,8; "Cptr : ".:WIi<3) 

3500 PRINTà2,1 UWIi(4>;WIi<5) 
3505 PRINTà2,13.: "Cptr : ";WIi<6) 

3510 PRINTà2,16.:WII<7) ,:WIi<8) 
3515 PRINTà2,18;"Cptr : ".:WIi<9) 
3520 PRINTà2,21 i "- 

____Il 


3525 ' • 

3570 PL0T2,24,1 

3575 PRINTA9,24 " * ESPACES 

menu" 

3580 
3585 
3590 
3595 
3600 


Pour retour 


GETTi 

GOT0300 


Listage fichier 


3605 
3610 
3615 
3620 
tour 
3625 
3630 
3635 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 
3695 
3700 
3705 
3710 
0300 
3715 
3720 
3725 
4500 
4510 
4520 
4530 
4540 
4550 
5000 
5010 
5020 
5030 
5040 
5045 
5050 
5060 
5065 
5070 


/ M -> Re 


REM*:- 

REM*: 

REM*:- 

CLS 

REWIND2:TAKE2,N 
TXi = " °Espace! -> Stop 
Menu ":G05UB9000 
F0RR=1 TON 
TAKE1,R 
GOSUB5200 

FORA=0TO7: PRINT :NEXTA 
PRINT"Casset te :"; R 
PRINTWIi<1); 

PRINTWIi ( 2 ) 

PRINTWI$(3) 

PR I NTW I i ( 4 ) 

PRINTWI<(5) 

PRINTWI$(6) 

PRINTWIi<7); 

PRINTWIi(8) 

PRINTWI$(9) 

PRI NT : PRINT : PR INT : PRINT 
Ki=KEYi 

IFKi = " "THENGETKi 
IFK $ = "M"ORK i = "m"THENCLS:INK3 


-* 

*: 

-* 


GOT 


IFR=N-1THEN GETGi:GOTO300 
NEXTR 
GOTO300 

REM*:-* 

REM*: Fin * 

REM*:-* 

CLOSE 

CLS 

END 

REM*:-* 

REM*: Window -> Buffer * 

REM*-* 

LSET NCASS < Wli(0) 

LSET TITRI < WIi < 1 ) 

LSET Tl < WIi(2) 

LSET CPTR1 < WIi(3) 

LSET TITR2 < WIi(4) 

LSET T2 < WI*(5) 

LSET CPTR2 < WM (6) 


5080 LSET TITR3 < WM<7) 

5085 LSET T3 < WI«(8) 

5090 LSET CPTR3 < WIi<9) 

5100 RETURN 

5200 REM*-* 

5210 REM* Buffer -> Window * 

5220 REM*-* 


5230 NCASS > WM(0) 

5240 TITR 1 > WM ( 1 ) 

5245 Tl > WM ( 2 ) 

5250 CPTR1 > WM(3) 

5260 TITR2 > WI$(4) 

5265 T2 > W M < 5) 

5270 CPTR2 > WM ( 6 ) 

5280 TITR3 > WM<7) 

5285 T3 > W M(8) 

5290 CPTR3 > WM (9) 

5300 RETURN 

9000 REM*-* 

9010 REM* Affichage lere ligne * 

9020 REM*-* 


9030 POKE4 8000,6 :FORA=1TOLEN(TXi) :POK 


E48001+A,ASC( MIDi(TX*,A,1)) 

9040 NEXT 
9050 RETURN 

10000 REM*-* 

10002 REM*-- Effac lere ligne -* 

10003 REM*-* 

10010 TXi=" 


10020 RETURN 

10050 REM*-* 

10060 REM* Message 1ère Ligne * 

10070 REM*- : -* 

10080 TXi=" ' Mar 

coritel 1987" 

10090 RETURN 

10500 REM*-* 

10510 REM* Création fiches vierges * 

10520 REM*-* 

10525 FORR=1TOXX 

10530 WIi(0)=STRi(R)' NCASS 

10540 WIi(1) = " " ' 


10545 WIi<2)= 
10550 WIi(3>= 
10560 WIi(4)= 


TI TRI 
" ' Tl 
" ' CPTR1 

Il S 


10565 WIi<5>=" 
10570 WIi(6)=" 
10580 WIi< 7) = " 

10585 WIi(8)=" 
10590 WIi(9) = " 
10600 GOSUB5000 
10610 PUT 1,R 
10620 NEXT 
10630 RETURN 
10640 END# 


TITR2 

h / *P2 

"' CPTR2 

TITR3 
" ' T3 
" ' C-PTR3 
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Jean-Christophe RIAT 

ARAIMGAL 


WARANGAL 



REGLES DU JEU 


Sur une spirale de 25 cases, numé¬ 
rotées de 1 à 25, deux joueurs dé¬ 
placent à tour de rôle un pion. Au 
début, celui-ci est placé sur la case 
1 et gagne celui des deux adversai¬ 
res qui réussit à amener le pion sur 
la case 25. Pour indiquer son coup, 
il faut mettre 1,2 ou 3 croix sur la ca¬ 
se occupée par le pion. Celui-ci 
avance alors d’autant de cases qu'il 
y a de croix. (Sur la 24, on ne peut 
évidemment mettre qu'une seule 
croix et sur la 23 qu'une ou deux). 


UTILISATION DU 
PROGRAMME 

Une fois que vous l'avez chargé, fai- 
"RUN". Ne vous étonnez alors 
><Je la politesse de l'ordinateur, 
fat, celle-ci est coutumière 
tout gentleman anglais et 
ie renie pas ses origines, 
stations faites, vous pour- 

3 js le souhaitez consulter 

les. Il vous faudra ensuite 
jntre qui vous désirez 
jouer : l'ORIC ou un autre adversai¬ 
re. Si vous optez pour la première 
possibilité, il vous sera encore de¬ 
mandé le niveau que vous accor¬ 
dez à votre adversaire (de 1 à 5). 
Enfin dans les deux cas, vous de¬ 
vrez encore indiquer qui commen¬ 
ce. 



S Ivousétes un passion nédes jeux deréf1exion,malsquevousavezdumalàtrouverun 
adversaire, vous pouvez maintenant affronter votre ordinateur favori au jeu du 
Warangal. Mais un peu de patience, Il vous faut d'abord rentrer le programme 
suivant (environ 4 Ko). 


C’est alors que le jeu proprement 
dit démarre. Pour faire connaître 
vos coups. IL vous suffit, quand 
c’est votre tour de jouer, d'entrer le 
nombre de croix que vous souhai¬ 
tez placer sur la case occupée par 
le pion. L'ordinateur vérifie la validi¬ 
té de vos coups et gère la représen¬ 
tation graphique du jeu. Il vous ré¬ 
pondra en jouant directement ses 
propres coups. 

TACTIQUE DE JEU DE 
L’ORDINATEUR 

Après une analyse du jeu en 
partant de la case d'arrivée (case 
n° 25), on trouve que les cases 
21,17,13,9,5 et 1 sont perdantes 
et toutes les autres gagnantes. En 
effet, puisque le déplacement maxi¬ 
mal est de trois cases, à partir d'une 
case perdante, on ne peut attein¬ 
dre que des cases gagnantes, mais 
c'est alors à notre adversaire de 
jouer. Et de même, à partir d'une ca¬ 
se gagnante, on peut toujours 
aboutir sur une case perdante et ce 
sera alors à notre adversaire de 
jouer. La tactique à suivre est donc 
simple : placer dès que possible le 
pion sur une case perdante. Et 
c'est bien évidemment ce que fait 
l'ORIC. Les niveaux de jeu ne sont 
là que pour affaiblir l'ordinateur, 
c'est à dire que selon le niveau choi¬ 
si, il joue plus ou moins souvent 
des coups au hasard (aucun au ni¬ 


veau 5, d'où vos difficultés à le bat¬ 
tre !). 

Voüà, vous savez tout ! Il ne vous 
reste plus qu'à étonner vos amis en 
les confrontant à ce jeu contre 
l'ORIC. 

STRUCTURE DU 
PROGRAMME 

-1000 à 1640 : affichage complet 
du coup 

1000 à 1060 : effaçage de l'ancien¬ 
ne position du pion 
1070 à 1200 : affichage des croix 
sur la case occupée par le pion 
1210 : modification de la variable J 
1220 à 1280 : dessin du pion à sa 
nouvelle position 

1290 à 1360 : affichage de la posi¬ 
tion du pion sur la partie droite de 
l'écran 

1370 : test si la partie est finie 

1375 à 1510 : indique le gagnant et 

propose une revanche 

1600 à 1640 : sous-programme de 

calcul de la position d'affichage du 

pion en fonction du numéro de la 

case occupée par celui-ci. 

-1800 à 1870 : sous-programme 
d'affichage sur l’écran haute réso¬ 
lution (le message a écrire est con¬ 
tenu dans D$) 

- 2000 à 2970 : dessin complet de 
l'échiquier du jeu 

2000 à 2140 : écriture du nom du 
jeu : "WARANGAL" 
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ARANGAL 


2150 à 2410 : dessin de la grille du 
jeu 

2420 à 2600 : numérotation des ca¬ 
ses du jeu 

2605 à 2700 : positionnement du 
pion au début 

2900 à 2970 : liste de DATAS utili¬ 
sés pour l'écriture du nom du jeu 
-3000 à 3300 : affichage des rè¬ 
gles 

- 3500 à 3740 : le joueur effectue 
ses différents choix 

- 3800 à 3900 : affichage de l'échi¬ 
quier et initialisation des variables 
-4000 à 4100 : introduction du 
coup du joueur 

-5000 à 5610 : l'ORIC trouve son 
coup 

5000 à 5060 : orientation suivant le 
niveau 

5100 à 5140 : l'ORIC joue un coup 
gagnant 

5500 à 5530 : l'ORIC joue au ha¬ 
sard 

5600 à 5610 : le coup est effective¬ 
ment joué 


VARIABLES DU 
PROGRAMME 

A : variable de boucles 
B : utilisation temporaire pour l’affi¬ 
chage 

C : utilisation temporaire pour l'affi¬ 
chage 

D : utilisation temporaire pour l'affi¬ 
chage 
E: 

E=1 : vous jouez contre l'ORIC 
E=2 : vous jouez contre un autre ad¬ 
versaire 
F: 

F=1 : l'ORIC ou l'autre adversaire 
(d'après la valeur de E) commence 
F=2 : vous commencez 
G : niveau choisi par le joueur : de 1 
à 5 (seulement si E=1) 

H : numéro du coup en cours 
I : coup joué : nombre de croix pla¬ 
cées 

J : numéro de la case occupée par 
le pion 

A$ : réponses diverses du joueur 
B$ : prénom du joueur (4 lettres) 

C$ : prénom de l'autre joueur (seu¬ 
lement si E=2) 

D$ : message affiché par le sous- 
programme d'affichage en HIRES. 


LISTING 


îo re mumttmtmmutmtttm 

20 REM» «ARANGAL 08/84 t 

30 REM» 0RIC ATM0S » 

40 REM» » 

50 REM» AUTEUR:JEAN-CHRISTOPHE RIAT » 

60 REM» » 

70 REM»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» 
80 REM 

90 GOTO 3000 
1000 REM 

1010 REM AFFICHAGE DU COUP 

1020 REM 

1025 CLS 

1030 G0SUB 1600 

1040 CURSET B,C,0 

1050 FILL 9,3,64 

1060 G0SUB 2420 

1070 IF IOl AND 103 THEN 1110 

1080 CURSET B+6,C+7,0 

1090 CHAR 120,0,1 

1100 GOTO 1160 

1110 CURSET B+3,C+7,0 

1120 CHAR 120,0,1 

1130 CURSET B+9,C+7,0 

1140 CHAR 120,0,1 

1150 GOTO 1210 

1160 IF 1=1 THEN 1210 

1170 CURSET B,C+7,0 

1180 CHAR 120,0,1 

1190 CURSET B+12,C+7,0 

1200 CHAR 120,0,1 

1210 J=J+I 

1220 GOSUB 1600 

1230 CURSET B,C,3 

1240 FILL 9,1,67 

1250 CURSET B+6,C,3 

1260 FILL 9,1,127 

1270 CURSET B+12,C,3 

1280 FILL 9,1,32 

1290 IF H/2= INT(H/2). THEN 1330 

1300 D«=STR«((H+l)/2)+")“ 

1310 CURSET 150-6»(H<19),76+4»(H-l),0 
1320 GOSUB 1800 
1330 D»=STRI(J) 

1340 CURSET 174-6»(J<10),76+4»(H-l),0 
1350 IF H/2=INT(H/2) THEN CURSET 204- 
6t(J<10),76+4»(H-2),0 
1360 GOSUB 1800 
1370 IF J O 25 THEN RETURN 
1375 IF E=2 THEN 1410 
1380 IF E=1 AND (<F=1 AND H/20INTIH/ 
21) OR (F=2 AND H/2=INT(H/2) ) ) THEN 14 
10 

1390 PRINT "Et oui, je vous ai battu 


1400 GOTO 1500 
1410 Ai=B$ 

1420 IF E=2 AND <(F=2 AND H/2<>INT(H/ 
2)) OR (F=l AND H/2=INT(H/2))) THEN A» 
=C» 

1430 PRINT "Bravo VA»;’ vous avez ga 
gne." 

1500 INPUT "Une revanche VA» 

1510 IF At="0UI" THEN RUN ELSE END 
1600 B=42-24»((J=3 OR J=18 OR J=25 OR 
J=22 OR J=11)-(J=1 OR (J>12 AND J<17) 
)) 

1610 B=B-48t(J=4 OR J=10 OR (J>18 AND 
J<22))-72t(J>4 AND J<10) 

1620 C=113-24»(<J=14 OR J=8 OR (J>20 
AND J<24))+2»(J>8 AND J<14)) 

1630 C=C+24»((J>15 AND J<20) OR J=6) + 
48t(J/0 AND J<6) 

1640 RETURN 
1800 REM 

1810 REM ECRITURE EN HIRES 
1820 REM 

1830 FOR A=1 T0 LEN(Dt) 

1840 CHAR ASC(MID$(Di,A)),0,1 

1850 CURMOV 6,0,0 

1860 NEXT A 

1870 RETURN 

2000 REM 

2010 REM DESSIN DE L'ECHIQUIER 
2020 REM 

2030 PAPER 4:INK 3 

2040 HIRES 

2050 PAPER 0:INK 7 

2060 FOR A=41361 TO 42541 STEP 40 

2070 POKE A,2 

2080 NEXT A 

2090 RESTORE 

2100 CURSET 40,10,1 

2110 FOR A=0 T0 38 

2120 READ B,C,D 

2130 DRAW B,C,D* 

2140 NEXT A 

2150 FOR A=43000 T0 48320 STEP 40 

2160 POKE A,0 

2170 POKE A+24,16 

2180 POKE A+1,18 

2190 POKE A+39,16 

2200 POKE A+25,19 

2210 NEXT A 

2220 FOR A=0 TO 5 

2230 CURSET 14+24»A,57,1 

2240 DRAW 0,120,1 

2250 CURSET 14,57+24»A,1 

2260 DRAW 120,0,1 

2270 NEXT A 

2280 FOR A=0 TO 1 

2290 CURSET 14,56+2»A,1 

2300 DRAW 121-2»A,0,1 
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atmos 


2310 

DRAW 

0,122-44A,1 

2320 

DRAW 

-122+4*A,0,1 

2330 

DRAW 

0,-98+44A,l 

2340 

DRAW 

98-4*A,0,1 

2350 

DRAW 

0,74-4tA,l 

2360 

DRAW 

-74+44A.0,1 

2370 

DRAW 

0,-50+4*A,1 

2380 

DRAW 

50-4*A,0.1 

2390 

DRAW 

0,26-41A,l 

2400 

DRAW 

-25+2tA,0,1 

2410 

NEXT 

A 

2420 

CURSET 0,66,3 

2430 

FOR l 

1=0 TO 8 

2440 

CURMOV -24*(A<5),-24*(A>4),3 

2450 

CHAR 

49+A,0,1 

2460 

NEXT 

A 

2470 

CURSET 117,162,3 

2480 

FOR / 

1=0 TO 9 

2490 

CURMOV 18l(A<4)+6t(A>3)t(A\7)-30 

*<a>6: 

) ,-24t(A>3)4(A<7),3 

2500 

CHAR 

48+A ,0,1 

2510 

CURMOV -6,0,3 

2520 

CHAR 

49,0,1 

2530 

NEXT 

A 


2540 CURSET 93,114,3 
2550 FOR A=0 TO 5 
2560 CHAR 50,0,1 
2570 CURMOV 6,0,3 
2560 CHAR 48+A,0,l 

2590 CURMOV 6t(A=0 OR A=3)+30t«A=l OR 
A=2)-18t(A=4),24t((A=3)-(A=0)),3 
2600 NEXT A 

2605 1F HOO THEN RETURN 
2610 CURSET 18,65,0 
2620 FILL 9,1,67 
2630 CURSET 24,65,3 
2640 FILL 9,1,127 
2650 CURSET 30,65,3 
2660 FILL 9,1,32 
2670 Dt="1) r 
2680 CURSET 162,76,0 
2690 GOSUB 1800 
2700 RETURN 

2900 DATA 5,29,1,5,-29,1,-5,-1,0,5,30 
,1,5,-29,1,1,30,3 

2910 DATA 10,-30,1,10,29,1,-4,-15,3,- 
10,0,1,18,16,3 

2920 DATA 0,-30,1,15,0,1,0,15,1,-15,0 
,1,14,14,1,6,1,3 

2930 DATA 10,-30,1,10,29,1,-4,-15,3,- 
10,0,1,18,16,3 

2940 DATA 0,-30,1,15,29,1,0,-29,1,20, 
0,3 

2950 DATA -15,0,1,0,29,1,15,0,1,0,-15 
,1,-5,0,1,10,16,3 

2960 DATA 10,-30,1,10,29,1,-4,-15.3,- 
10,0,1,33,15,3 
2970 DATA -15,0,1,0,-29,1 


3000 REH 

3010 REM AFFICHAGE DES REGLES: 

3020 REM 

3030 TEXT:CLS 

3040 PAPER 7:INK 0 

3050 PRINT:PRINT ‘BONJOUR !“ 

3060 PRI NT : PRI NT “Mon noa est ORIC.* 
3070 1NPUT 'Et vous, coaaent vous app 
ele:-vous (4 lettres) “;B$ 

3075 IF LEN(B»)<>4 THEN 3070 
3080 PRINT:INPUT "Voulei-vous consult 
er les réglés *;At 
3090 IF A»O“OUI‘ THEN 3500 
3100 GOSUB 2000 

3110 PRINT “Voici la grille de jeu." 
3120 PRINT “Regarde: puis presse: une 
touche.' 

3130 GET A4 
3140 TEXT 

3150 PRINT:PRINT “Le jeu se joue avec 
un pion sur une" 

3160 PRINT “spirale de 25 cases.Au de 
but, le pion* 

3170 PRINT “est place sur la case l.“ 
3180 PRINT : PRINT “Les joueurs aettent 
a tour de rôle 1," 

3190 PRINT “2, ou 3 croix sur la case 
occupée par" 

3200 PRINT ‘le pion.Celui-ci avance a 
lors d'autant* 

2210 PRINT “de cases qu'il y a de cro 
ix.“ 

3220 PRINT:PRINT “Gagne celui qui arr 
ive sur la case 25." 

3230 PRINT “(sur la 24, on ne peut ae 
ttre qu'une' 

3240 PRINT “seule croix, sur la 23 qu 
'une ou deux)' 

3250 PRINT:PRINT “Indique: vos coups 
en entrant le“ 

3260 PRINT “noabre de croix que vous 
voule:' 

3270 PRINT “■arquer." 

3280 PRINT : PRI NT “Presse: une touche 
pour continuer." 

3290 GET A4 
3300 CLS 
3500 REM 

3510 REM CHOIX DU JOUEUR 
3520 REM 

3525 PRINT:PRINT “Contre qui voule:-v 
ous jouer: 1 

3530 PRINT ,“<1) ORIC' 

3540 PRINT ,“(2) Un autre adversaire" 
3550 PRINT:INPUT “Votre choix, SVP V 
E 

3560 IF E=2 THEN 3700 

3570 PRINT:INPUT “A quel niveau voule 


:-vous jouer (de 1 a 5) “;G 

3580 G=INT(G): IF G<1 OR G>5 THEN 3570 
3590 PRINT:INPUT “Voule:-vous coaaenc 
er “;AI 

3600 IF A4 O “OUI “ AND A4O“N0N“ THEN 
3570 

3610 F=l-(A4=“OUI“) 

3620 C4=“0RIC“ 

3630 GOTO 3800 

3700 PRINT:INPUT "Quel est son prenoa 
(4 lettres) “;C* 

3705 IF LEN(C4)<>4 THEN 3700 

3710 PRINT “Qui entre “:B4;“ et “:C4; 

3720 INPUT “ coaaence VA4 

3730 IF A40B4 AND A40C4 THEN 3710 

3740 F=1-(A4=B4) 

3800 GOSUB 2000 

3805 1F F=1 THEN D4=C4+“ “+B4 ELSE D4 
=B»+“ “+C4 

3810 CURSET 174,60,0 
3820 GOSUB 1800 
5830 H=1 
3840 J=1 

3900 IF E*F=1 THEN 5000 
4000 REM 

4010 REM COUP DU JOUEUR 
4020 REM 
4030 H=H+1 
4040 A4=B4 

4050 IF E=2 AND (<F=2 AND H/20INTIH/ 
2)) OR (F=l AND H/2=INT(H/2))) THEN A4 
=C4 

4060 PRINT “A vous, *;A4 
4070 INPUT “Votre coup, SVP “Il 
4080 IF 101 AND 102 AND 103 OR I + J 
>25 THEN 4070 
4090 GOSUB 1000 
4100 IF E=2 THEN 4000 
5000 REM 

5010 REM COUP DE L'ORIC 
5020 REM 
5030 H=H+1 

5040 PRINT “A aoi...“ 

5045 NAIT 50 

5050 IF 5tRND(1)>G AND J<21 THEN 5500 
5060 IF <J-l)/4=INT((J-1J/4) THEN 550 

0 

5100 REM 

5110 REH ORIC JOUE UN COUP GAGNANT 
5120 REM 

5130 I=4t<INT((J-l)/4) + l) + l-J 
5140 GOTO 5600 
5500 REM 

5510 REH ORIC JOUE AU HASARD 
5520 REM 

5530 I=INT(RND(1)I3)+1 
5600 GOSUB 1000 
5610 GOTO 4000# 
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LE COMPACTAGE 
DE L'ECRAN HIRES 


D. VASILJEVIC 


I ^^ommençons par une innocente devinette : 

| #BFEO-#AOOO= #1FEO = 8160 octets 
# 9800- # 0500 = # 9300 = 37632 octets 
INT (37632/8160 = 4 QU'EST-CE QUE C'EST ? 

Bravo, vous avez trouvé, c’est le nombre d’écrans en haute résolu¬ 
tion que vous pouvez stocker, laissant quelques 4992 octets pour les 
programmes !. 

Trop peu, hélas, pour créer une succession d'images, décors d'aven¬ 
tures ou publicité animée. 

Si le stockage de deux, trois, voire n fois plus d'écrans vous intéresse, 
lisez attentivement ce qui suit. 


Rassurez-vous, vous n'aurez pas 
besoin de fer à souder, je ne suis pas 
(et je le regrette) un bidouilleur. 
Vous n'aurez pas besoin, non plus, 
d'acheter un lecteur de disquettes, 
ce qui serait une solution. 

Je vous propose les solutions (et 
elles sont assez nombreuses) par le 
"SOFT". 

Dans ce domaine, la voie a déjà été 
ouverte par les créations fractales, 
ordonnées ou aléatoires et par les 
routines de génération. 
Malheureusement, ces deux métho¬ 
des ne peuvent pas compacter n'im¬ 
porte quel dessin, mais uniquement 
générer une image soit connue 
d'avance, soit composée de motifs 
connus. 

Mon propos est tout autre : créer les 
routines générales en langage 
machine pouvant compacter, stoc¬ 
ker puis décompacter et reproduire 
à l'écran n'importe quelle image en 
haute résolution. 

Certaines de ces routines seront plus 
adaptées à certains dessins et d'au¬ 
tres seront tout à fait générales. Leur 
rapidité sera aussi différente. 

La première méthode que je vous 
propose est basée sur la répétitivité 
(d'où son nom "REPETITION"). 

En observant les dessins courants en 




haute résolution, on s'aperçoit 
qu'une faible partie des mémoires 
écran comporte autre chose que le 
vide, qu'il soit de couleur "encre" ou 
"papier" ou encore l'inverse des 
deux. C'est le cas des dessins de 
perspectives ou des jeux. L'exemple 
du dessin auquel cette routine s'ap¬ 
plique parfaitement est donné sur la 
figure 1, représentant la jeune 
femme sur fond de Lune. 

La routine est extrêmement simple : 

— on lit les mémoires écran dans 
l'ordre croissant, 

— Le contenu de la première 
mémoire est sauvegardé dans le 
stock, 

— Le contenu des mémoires qui 
suivent est comparé et, tant qu'on 
trouve la même valeur, le compteur 
est incrémenté. 

— si une nouvelle valeur est rencon¬ 
trée, le compteur est sauvé à son 
tour et l'on recommence la lecture 
à l'adresse comportant la nouvelle 
valeur. 

Si le compteur dépasse la valeur 
# # FF, il est sauvé automatique¬ 
ment et on recompte à zéro (je n'ai 
pas voulu adopter le compteur sur 
deux octets car, dans ce cas, pour 


chaque valeur différent?, il faut 
3 octets au minimum même si cette 
valeur est isolée). 

D'autre part, le choix du compteur 
sur un seul octet ouvre la possibilité 
de compactage du stock déjà com¬ 
pacté, dans le cas d'un très grand 
coefficient de répétitivité. 

L'accès à la routine de compactage 
est en # # 7000 et à celle de décom¬ 
pactage en # #7100. Le début du 
stock est prévu à l'adresse 
# # 4000. A la fin d'un compactage, 
la nouvelle adresse du stock dispo¬ 
nible en # #02/# #03 (pointeurs 
stock). 

Pour un simple compactage, ce 
coefficient qui est égal à la moyenne 
de répétitivité de chaque valeur doit 
être supérieur à 2. En clair : si cha¬ 
que valeur est répétée deux fois, le 
stock occupera la même place que 
la mémoire écran et le rapport 
stock/écran sera égal à 1. Mais, si 
chaque valeur est répétée dix fois en 
moyenne, le stock n'occupera plus 
que le cinquième de la mémoire 
écran et le rapport stock/écran sera 
de 0,2, ce qui veut dire que, dans le 
même espace mémoire, on peut 
stocker 10 écrans de ce type. 

En conclusion, disons que cette rou¬ 
tine n'est pas universelle, mais 
extrêmement rapide et efficace dans 
les cas bien précis. 

Pour l'améliorer et la rendre plus 
générale, nous ferons appel à une 
particularité de l'Oric qui est, en réa¬ 
lité, un triste défaut : les zones de 
l'écran, comportant les attributs, ne 
peuvent pas comporter de dessin. 
De ce fait, le dessin, à proprement 
parler, est représenté par les valeurs 
comprises entre 0 et 63 auxquelles 
on ajoute 0, 64, 128 ou 192 selon 
l'effet désiré. 

On peut donc représenter toutes les 
valeurs de dessin sur 6 bits au lieu 
de 8. 

D'où l'idée génératrice de la routine 
"TIERCE" : 

Transformer le contenu de quatre 
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octets en 4 fois 6 bits et les stocker 
sur 3 octets, d'ou une économie de 
25 % d'office. 

Associer cette méthode à celle de 
répétitivité de façon à ce que le gain 
soit substantiel. 

Conserver néanmoins tous les attri¬ 
buts afin de restituer fidèlement le 
dessin compacté. 

Les valeurs sont séparées en trois 
groupes : 

— attributs (y compris dessin non 
effaçable par les routines Draw et 
Circle), 

— valeurs-dessin courant, 

— codes-dessin particulier et le seul 
vraiment répétitif : cases remplies 
entièrement de couleur de fond ou 
de l'encre, 

— ajouter une notion de bascule 
pour indiquer le mode : normal ou 
inverse. 

Cette routine peut être utilisée quel¬ 
que soit le type du dessin, même 
aussi complexe que celui du voilier 
de la figure 2. Vous remarquerez les 
traînées verticales ne faisant pas 
partie du dessin, mais représentant 
les attributs que j'ai fait apparaître 
volontairement. 

Je vous signale aussi que la copie 
sur imprimante ne distingue pas l'in¬ 
verse et le normal et que l'image est 
encore plus complexe qu'elle 
n'apparaît. 

Le listing est donné sous forme de 
"source" commentée. 

L'accès au compactage est en 

# # 7030 et en décompactage en 

# #7230. Tous les pointeurs appa¬ 
raissent sur le listing. 


Listing 1 

'REPETITION' (Compactage) 


I7100-716E 


7100 

R9 

00 

LDR 

#S00 

7102 

R0 

R0 

LDY 

#*R0 

7104 

R2 

40 

LDX 

4*40 

7106 

35 

00 

STR 

*00 

7100 

34 

01 

STY 

*01 

710R 

85 

02 

STR 

*02 

710C 

86 

03 

STX 

*03 

710E 

RR 


TRX 


710F 

RS 


TRY 


7110 

31 

02 

LDR 

< *02 Y 

7112 

35 

04 

STR 

*04 

7114 

C8 


INY 


7115 

31 

02 

LDR 

r*02>,Y 

7117 

88 


DEY 


7113 

C9 

on 

CMP 

#*00 

71 IR 

F0 

25 

BEC! 

*7141 

71 IC 

35 

05 

STR 

*05 

711E 

R5 

04 

LDR 

*04 

7120 

91 

00 

STR 

CS00>,Y 

7122 

C3 


INY 


7123 

C4 

05 

CPY 

*05 

7125 

F0 

03 

BEC! 

S712R 

7127 

18 


CLC 


7123 

90 

F6 

BCC 

*7120 

712R 

R5 

00 

LDR 

*00 


Les deux routines sont indépendan¬ 
tes de la ROM et tournent aussi bien 
sur ORIC1 que sur ATMOS. 

Le compactage et décompactage 
doivent être réalisés à l'aide d'une 
même routine, il n'est pas possible 
de décompacter un dessin par la rou¬ 
tine "TIERCE" si ce dessin a été 
compacté par la routine "REPETI¬ 
TION" et vice versa. Notez donc 
pour chaque dessin la routine utilisée 
ou alors optez une fois pour toute 
pour la routine "TIERCE". 

Pour le compactage, procédez de la 
manière suivante : 

Chargez la routine choisie, puis affi¬ 
chez sur l'écran HIRES le dessin à 
compacter. La zone du stock qui 
recevra le dessin compacté doit être 
libre de tout programme, routine 
binaire ou données, car ils seront 
tous perdus. La première adresse du 
stock étant # 4000, il est prudent de 
limiter la mémoire BASIC par HIMEM 

# 3FFF. Le compactage sera lancé 
par simple CALL # 7000 pour la rou¬ 
tine "REPETITION" ou par CALL 

# 7030 pour la routine "TIERCE". Le 
dessin compacté doit être sauve¬ 
gardé sous forme binaire par 
CSAVE"NOMDESSIN", A #4000, 
EDEEK( #02) 

Ainsi, au moment opportun, avant le 
décomptage, le dessin compacté 
sera de nouveau chargé en mémoire 
à partir de l'adresse #4000. 

Vous pouvez aussi conserver le des¬ 
sin compacté en mémoire, mais en 
le déplaçant de la zone du stock à 
une autre adresse. La zone libre pour 


712C 

= 18 


CLC 


712D 

65 

05 

RDC 

*05 

712F 

35 

00 

STR 

*00 

7131 

: R5 

01 

LDR 

*01 

7133 

69 

00 

RDC 

#*00 

7135 

85 

01 

STR 

*01 

7137 

C9 

BF 

CMP 

#®BF 

7139 

> F0 

2fl 

BEQ 

*7165 

7133 

R6 

05 

LDX 

*05 

713D 

E0 

FF 

CPX 

#*FF 

713F 

F0 

12 

BEQ 

*7153 

7141 

A5 

02 

LDR 

*02 

7143 

18 


CLC 


7144 

69 

02 

RDC 

#S02 

7146 

35 

02 

STR 

*02 

7148 

R5 

03 

LDR 

*03 

714R 

69 

00 

RDC 

#*00 

714C 

85 

03 

STR 

*03 

714E 

R0 

00 

LDY 

#*00 

7150 

18 


CLC 


7151 

90 

BD 

BCC 

*7110 

7153 

R5 

02 

LDR 

*02 

7155 

18 


CLC 


7156 

69 

01 

RDC 

#S01 

7158 

85 

02 

STR 

*02 

715R 

R5 

03 

LDR 

*03 

715C 

69 

00 

RDC 

#*00 

715E 

85 

03 

STR 

*03 

7160 

R0 

01 

LDY 

#*01 

7162 

18 


CLC 


7163 

90 

B0 

BCC 

*7115 


la "REPETITION" commence à 
#7200 et pour le "TIERCE" à 

# 739C. Un dessin compacté, même 
très complexe, ne devrait pas occu¬ 
per plus de 2K octets. Ceci vous per¬ 
met d'utiliser aussi la zone entre 

# 5000 et #6FFF. Ainsi, vous pour¬ 
rez conserver dans la mémoire au 
moins une dizaine de dessins com¬ 
pactés sinon plus. 

Pour décompacter un dessin, celui- 
ci doit être placé dans la zone du 
stock à partir de l'adresse #4000. 
Le décompactage sera lancé par 
CALL #7100 pour la routine "REPE¬ 
TITION" ou par CALL #7230 pour 
la routine "TIERCE". Le dessin 
décompacté est affiché à l'écran 
HIRES quasi instantanément. . 

Il est conseillé de vérifier le bon com¬ 
pactage immédiatement. Pour cela, 
faites HIRES après la fin du compac¬ 
tage pour effacer le dessin à l'écran 
et effectuez le décompactage. 

Pour la saisie du programme, si 
vous n'avez pas d’assembleur, il fau¬ 
dra entrer les listings de DATA puis, 
après exécution, sauvegarder les 
différentes routines en code machi¬ 
ne (listings 5,6,7). 

- Listing 5 : 

RUN puis CSAVE "REPETCOMP", 
A#7000, E#7066 

- Listing 6 : 

RUN puis CSAVE "REPETDE- 
COMP", A#7100, E#716E 

- Listing 7 : 

RUN puis CSAVE "TIERCE", 
A#7000, E#7398 


7165 : 

R5 

00 

LDR 

*00 

7167 = 

C9 

41 

CMP 

#*41 

7169 = 

B0 

03 

BCS 

*716E 

716B = 

18 


CLC 


716C 1 

90 

D3 

BCC 

*7141 


Listing 2 

'REPETITION' (Décompactage) 


17000 

-7066 




7000' 

R9 

00 

LDR 

#*00 

7002 = 

R0 

R0 

LDY 

#*R0 

7004 = 

R2 

40 

LDX 

#*40 

7006 = 

35 

00 

STR 

*00 

7003 = 

84 

01 

STY 

*01 

700R ■ 

85 

02 

STR 

*02 

700C : 

86 

03 

STX 

*03 

700E ' 

RR 


TRX 


700F: 

R8 


TRY 


7010: 

86 

04 

STX 

*04 

7012' 

34 

05 

STY 

*05 

7014: 

B1 

00 

LDR 

( *00 >, Y 

7016 = 

91 

02 

STR 

(*02>,Y 

7018 = 

35 

04 

STR 

*04 

701 fl = 

E8 


INX 


701B = 

E0 

FF 

CPX 

#*FF 

701D = 

F0 

2C 

BEQ 

*704B 

701F = 

R5 

00 

LDR 

*00 

7021 = 

18 


CLC 


7022 = 

69 

01 

RDC 

#*01 

7024 = 

35 

00 

STR 

*00 


41 










7026' 

85 

01 

LD8 

*01 

703E = 

65 

02 

RDC *02 

7054 = 

84 

05 

LDY 

*05 

7028' 

69 

00 

RDC 

#*00 

7040' 

85 

02 

STR *02 

7056' 

.91 

02 

STR 

< *02 >, Y 

7028 

35 

01 

STR 

*01 

7042 = 

85 

03 

LDR *03 

7058 ' 

80 

00 

LDY 

#S00 

702C ' 

C9 

BF 

CMP 

#*BF 

7044 ' 

69 

00 

RDC #*00 

7058' 

82 

00 

LDX 

#*00 

702E ' 

F0 

2D 

BEC! 

S705D 

7046' 

85 

03 

STR *03 

705C ' 



RTS 


7030 = 

B1 

00 

LDB 

<*00 ) ,Y 

7048' 

18 


CLC 

705D ' 

85 

00 

LDR 

*00 

7032 = 

C5 

04 

CMP 

*04 

7049' 

90 

C5 

BCC *7010 

705F 

C9 

41 

CMP 

#*41 

7034 

FQ 

E4 

BEQ 

*7018 

704B ' 

20 

51 70 

JSR *7051 

7061 

B0 

03 

BCS 

*7066 

7036 = 

20 

51 70 

JSR 

*7051 

704E ' 

18 


CLC 

7063' 

18 


CLC 


7039 = 

E6 

05 

INC 

*05 

704F' 

90 

CE 

BCC *701F 

7064 = 

90 

CR 

BCC 

*7030 

7038 = 

85 

05 

LDR 

*05 

7051 • 

88 


TXR 

7066 ' 

60 


PTS 


703D : 

18 


CLC 


7052' 

E6 

05 

INC *05 

716E = 

60 


RTS 



Listing 3 

TIERCE ' (Compactage) 








ORG 

#*7000 

ECRITURE 









0000 





PE 

EQU 

.*00 

Rdr. écran 

7074 

C8 




INY 


Si carre . 

0002 





PS 

EQ'J 

.*02 

Rdr. stock 

7075 

C0 

04 



CPY 

#*04 

est Plein 

0004 





PO 

EQU 

.*04 

Ptr. carre 

7077 

F0 

03 



BEQ 

RR1 

va rel. RI 

0005 





CR 

EQU 

. *05 

Zone carre 

7079 

E6 

04 



INC 

.PO 

Elem.suiv. 

0009 





DR 

EQU 

.*09 

NormxInver 

707B 

60 




RTS 


Retourne 

0000 





CM 

EQU 

. S0R 

ComPt.code 

707C 

4C 

3F 

71 

RR1 

JMP 

RI 

Relais 

0000 





NO 

EQU 

#*00 

Norma1 =0 

707F 

R9 

00 


RTT3 

LDR 

#N0 

Si draPeau 

0001 





IN 

EQU 

#*01 

Inversent 

7081 

C5 

09 



CMP 

.DR 

N/I a. zéro 

0019 





Cl 

EQU 

#*19 

Fond norm 

7083 

F0 

0fl 



BEQ 

RTT5 

continue. 

0018 





C2 

EQU 

#*1R 

Encre norm 

7085 

35 

09 



STR 

.DR 

Sinon met 

H0 1' 





C3 

EQU 

#*1C 

Fond inve 

7087 

R9 

IB 



LDR 

#ESC 

a. zéro et 

0010 





C4 

EQU 

#S1D 

Encre inve 

7089 

20 

6F 

70 


JSR 

CRT+2 

sauve ESC 

001 B 





ESC 

EQU 

#S1B 

N/I-I/N 

708C 

20 

6D 

70 


JSR 

CRT 

Sauve zéro 

7000 

43 

4F 

4D 

50 

TI TR 

TEX 

#S0E•COMPRCT HIRES 

708F 

88 



RTT5 

TXR 


Sauve 


41 

43 

54 

20 





7090 

20 

6F 

70 


JSR 

CRT+2 

l'attribut 


48 

49 

52 

45 





7093 

4C 

50 

71 


JMP 

SUI 

Rdr. suiv. 


53 

20 







7096 

38 



RTT2 

SEC 


Rend attr. 

700E 

44 

2E 

20 

56 

RUT. 

TEX 

#*0E•D. 

Va.si l Jevic 

7097 

E9 

80 



SBC 

#*80 

norma. 1 et 


61 

73 

69 

6C 





7099 

HR 




T8X 


le Preser. 


68 

65 

76 

69 





7098 

20 

6D 

70 


JSR 

CRT 

SR sauve 0 


63 

20 







709D 

89 

01 


RTT4 

LDR 

#IN 

Si dre.Pea.u 

70 IC 

35 

20 

6F 

63 

DRTE 

TEX 

#*0E•5 

octobre 1985 

709F 

C5 

09 



CMP 

.DR 

N/I a un 


74 

6F 

62 

72 





70R1 

F0 

08 



BEQ 

RTT6 

continu. 


65 

20 

31 

39 





7083 

85 

09 



STR 

.DP 

Sinon met 


38 

35 







7085 

89 

IB 



LDR 

#ESC 

a un et 

7028 

00 

80 



ME 

PTR 

#*8000 

DeP. écran 

7UR7 

20 

6F 

70 


JSR 

CRT+2 

save ESC 

702C 

00 

40 



MS 

PTR 

#*4000 

DeP. stock 

7088 

20 

6D 

70 


JSR 

CRT 

Sauve zéro 

702E 

69 

BF 



TE 

PTR 

#*BF69 

Fin écran 

708D 

18 



RTT6 

CLC 


Sauve 

7030 

RD 

28 

70 


ENT 

LDR 

ME 

Entrée 

708E 

90 

DF 



BCC 

RTT5 

attribut 

7033 

85 

00 




STR 

.PE 

Initiali- 

70B0 

4C 

10 

71 

VAL 1 

JMP 

Vfll 


7035 

RC 

2B 

70 



LDY 

ME+1 

sation des 

70B3 

4C 

27 

71 

VAL 2 

JMP 

VR2 


7038 

84 

01 




STY 

. PE+1 

Pointeurs 

70B6 

82 

19 


C0D1 

LDX 

#C1 

Charge 

7038 

85 

02 




STR 

.PS 


70B8 

18 




CLC 


code 

703C 

RÉ 

2D 

70 



LDX 

MS+1 


70B9 

90 

0C 



BCC 

CODA 

correspon¬ 

703F 

86 

03 




STX 

. PS+1 


70BB 

82 

IR 


C0D2 

LDX 

#C2 

dant et va. 

7041 

82 

07 




LDX 

#$07 

Mise a. zé¬ 

70BD 

13 




CLC 


a la suite 

7043 

89 

00 



ZER 

LDR 

#*00 

ro de la. 

70BE 

90 

07 



BCC 

COD0 

Pour codes 

7045 

95 

03 




STR 

.P0-1,X 

zone carre 

70C0 

82 

IC 


C0D3 

LDX 

#C3 


7047 

CR 





DEX 


bascule et 

70C2 

18 




CLC 



7043 

D0 

F9 




BNE 

2ER 

compteur 

70C3 

90 

02 



BCC 

COD0 


7048 

RR 

00 



LEC 

LDY 

#*00 

Lecture de 

70C5 

82 

1D 


C0D4 

LDX 

#C4 


704C 

B1 

00 




LDR 

*PE,Y 

l'écran 

70C7 

20 

CD 

70 

COD0 

JSR 

CCO 

SR sauve 0 

704E 

C9 

40 



ION 

CMP 

#*40 

Identifie. 

70CR 

13 




CLC 


Va. a. l a 

7050 

90 

14 




BCC 

8TT1 

Attribut N 

70CB 

90 

0F 



BCC 

C0D5 

suite code 

7052 

F0 

62 




BEQ 

C0D1 

Code fon.N 

70CD 

89 

00 


cco 

LDR 

#*00 

Sauve zéro 

7054 

C9 

7F 




CMP 

#*7F 


70CF 

84 

84 



LDY 

.PO 

identifie. 

7056 

90 

58 




BCC 

VRL1 

Dessin Nor 

70D1 

99 

05 

00 


STR 

CR,Y 

des codes 

7058 

F0 

61 




BEQ 

C0D2 

Code enc.N 

70D4 

C8 




INY 


Si carre 

7058 

C9 

C0 




CMP 

#*C0 


70D5 

C0 

04 



CPY 

#*04 

est Plein 

705C 

90 

38 




BCC 

RTT2 

Attribut I 

70D7 

FO 

6F 



BEQ 

RC1 

va relaiCl 

705E 

F0 

60 




BEQ 

C0D3 

Code fon.I 

70D9 

E6 

04 



INC 

• PO 

Elem.suiv. 

7060 

C9 

FF 




CMP 

#*FF 


70DB 

60 




RTS 



7062 

90 

4F 




BCC 

VRL2 

Dessin Inv 

70DC 

88 



C0D5 

TXR 


Sauve code 

7064 

F0 

5F 




BEQ 

C0D4 

Code enc.I 

70DD 

20 

CF 

70 


JSR 

CCO+2 

corresPon. 

7066 

RR 




RTT1 

TflX 


Près. att. 

70E0 

E6 

0R 


CMPT 

INC 

.CM 

Compteur 

7067 

20 

6D 

70 



JSR 

CRT 

SR sauve 0 

70E.2 

84 

08 



LDY 

.CM 

incr. et 

7068 

18 





CLC 


Va. a. la 

70E4 

C0 

3F 



CPY 

#*3F 

si“maximum 

706B 

90 

12 




BCC 

8TT3 

suite att. 

70E6 

F0 

7D 



BEQ 

QIJNT 

le sauver 

706D 

89 

00 



CRT 

LDR 

#*00 

Sauve zéro 

70E8 

33 




DEY 



706F 

84 

04 




LDY 

.PO 

ident. des 

70E9 

B1 

00 


CPT1 

LDR 

CPE , Y 

ComP code 

7071 

99 

05 

00 



STR 

CR, Y 

attr.-code 

7UEB 

C8 




INY 




42 







70EC 

DI 

00 



CMP 

T PE, Y 

octet sui. 

7190 

66 

07 




ROR 

.$07 

4 octets 

70EE 

FR 

F0 



BEQ 

CMPT 

S i =comP te 

7192 

66 

08 




ROR 

.$08 

de données 

70F 0 

R4 

04 



LDY 

.PO 

Simon sau¬ 

7194 

66 

07 




ROR 

.$07 

codées 

70F2 

R5 

0R 



LDR 

.CM 

ve nombre 

7196 

66 

08 




ROR 

. $03 

sont 

70F4 

99 

05 

00 


STR 

CR, Y 

d 'octets 

7198 

06 

07 



RSL7 

RSL 

.$07 

transfor¬ 

70F7 

R5 

00 


INPE 

LDR 

.PE 

Décalé 

719R 

CR 





DEX 


mes en 

70F9 

18 




CLC 


adr. écran 

719B 

D0 

F B 




BNE 

RSL7 

3 octets 

70F R 

65 

0R 



RDC 

.CM 

de nombre 

719D 

R2 

04 




LDX 

#$04 

de stocka¬ 

70FC 

85 

00 



STR 

.PE 

d 'octets 

719F 

66 

06 



R0R6 

ROR 

. $06 

ge 

70 F E 

R 5 

01 



LDR 

. F'E+1 

lus 

71R1 

66 

07 




ROR 

.$07 

4x6=3x8=24 

7100 

69 

00 
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Pointeur 


STR 

.PS 

de l'adre¬ 


LDR 

.PS+1 

sse de la 


RDC 

#$00 

zone de 


STR 

.PS+1 

stock a9e 


LDV 

#*00 

Mise a 0 


LDX 

.PO 



STY 

.PO 

du Point. 


RTS 


du carre 

NÉO 

LDR 

#*00 



STR 

.CR 



STX 

.PO 



LDX 

#*06 



CLC 




Etre 

TR0+3 



END 




Listing S 


10 A=f7000 :F=#7066:L=100 :REPEAT: FOR A=A TO A+15:READ G* 

20 K=VAL(*#"+C*):S=£+K+65536t(S*K>65535): IF A<=F THEN POKE A,K 


30 NEJ.T : READ D* : 1F S=VALCI*+D») THEN L=L+5:UNTIL A) F : END 
40 PING.'PRINT’Erreur liqne“:L 

100 DATA A9, 00 . AO.AO,A2,40.85,00,84,01,85,02,86,03,AA,A8,0637 
105 DATA 86.04.84.05,81,00,91,02,85.04,E8,E0,FF,F0,2C,A5,0D9F 
110 DATA 00,18,69,01,85,00.A5,01,69,00,85.01,C9,BF,F0.2D,12E0 
115 DATA 81.00,C5,04.FO,E4.20,51,70,E6,05,A5,05,18,65,02,1923 
120 DATA 85,02,A5,03,69,00,85,03,18,90,C5,20,51,70,18,90,1E39 
125 DATA CE,8A,E6,05,A4,05,91,02,AO,00,A2,00,60,A5,00,C9.24C8 
130 DATA 41,80,03,18,90,CA,60,00,00,00,00,00,00.00,00,00,276E 


Listing 6 

10 A=#7100 ; F=#716E : L= 100 : REPEAT : FOR A=A TO AM5:REAÛ G» 

20 K=VAL(‘l , +CI)IS=S+K+65536t(£+K>65535): IF A<=F THEN POKE A,K 
30 NEXT:READ Di : IF S=VALCI*+D») THEN L=L+5:UNTIL A>F:END 
40 PINGlPRINT’Erreur liqne":L 

100 DATA A9, 00,AO,AO,A2,40,85,00,84,01,85,02,86,03,AA,A8,0637 
105 DATA 81,02.85,04,C8,B1,02,88,C9,00,F0.25,85,05,A5,04,0C87 
110 DATA 91,00,C8,C4,05,F0,03,18,90,F6,A5,00,18,65,05,85,12E6 
115 DATA 00,A5,01,69,00,85,01,C9,BF,F0,2A,A6,05,EO,FF,FO,1A97 
120 DATA 12,A5,02,18,69,02,85,02,A5,03,69,00,85,03,AO,00,1E93 
125 DATA 18,90,BD,A5,02,18,69,01,85,02,A5,03,69,00,85,03,2341 
130 DATA AO,01,18,90,80,A5,00,C9,41,BO,03,18,90,D3,60,00,2977 

Listing 7 


40 PING:PRINT"Erreur liqneV'L 

100 DATA 43,4F,4D.50,41,43,54,20,48,49,52,45,53,20,44,2E,0434 
105 DATA 20,56,61,73,69,6C,SA,65,76,69,63,20,35,20,6F,63.09AB 
110 DATA 74,6F,62,72,65,20.31,39,38,35,00.AO.00.40,41,BF.0E9E 
115 DATA AD.2A,70,85,00.AC,28,70,84,01,85.02.AE.2D,70,86,148E 
120 DATA 03,A2.07,A9,00,95,03,CA,D0,F9,A0,00,B1.00,C9.40,1B68 
125 DATA 90,22,FO.6A,C9,7F,90,60,FO,69,C9,CO,90,43,FO,68,2489 
130 DATA C9,FF.90,57,FC,67,46,69,6E,20,49.64,65.6E,74,69,2C59 
135 DATA 66,69,63,2E,AA,20.7B,70.18,90,12,A9,00,A4,04,99,3212 
140 DATA 05,ûO,C8,C0,04,F0,03,E6,04,60,4C,24,71,A9,00,C5,382F 
145 DATA 09,FO,C7,55,09,A9,1B,20.7D,70,8A.20,7D,70,4C,35,3DA6 
150 DATA '1,38,E9,80,AA,20,78,70,A9,01,C5.09,FO.07,85,09.446A 
155 DATA A9,13.20,70,70.18,90,E2.4C,16,71,4C,1D,71,A2,19,4A2D 
160 DATA 18,90,OC,A2,1A,18,90,07,A2,IC,18,90.02,A2,1D,20,4E93 
165 DATA D5.70,18.90.0F,A9,00,A4,04,99,05,00,C8,C0,04,F0,54FA 
170 DATA 4G.Eo,04,60,3A,20,D7,70,E6,OA,A4,OA,CO,3F,FO,5A,5G68 
175 DATA S8.B1,00,C8,Dî,00,F0,F0.A4,04,A5.OA,99,05,00,A5.63B4 
180 DATA 00.18.65,OA,85,00,A5,01,69.00,85,01,A9.00,85.OA,673D 
185 DATA 20,88,71,4C,4A,70,38,E9.40.AA.4C,8D,70,38,E9.CO,6F11 
190 DATA AA.18,90,84,20,6E,71,AO,00,EA,4C,89,70.20,6E,71,7584 
195 DATA AO.OO,18.90,AE,A5,00.18,69.01,85,00.A5.01,69,00,7A65 
200 DATA 85,01,CD,2F,70,FO,18,4C,4A,70,AA,98,A4.04,99,05,80F0 
205 DATA 00,C8,CO,04,FC,05,E6,04,18.90,62,20,6E,71,AO,00,8704 
210 DATA !8,90,5A,A5,00,CD,2E,70,B0,03,4G,4A,70,6û,86,04,8CB9 
215 DATA A2,04,06,08,06,08,66.07,66,08,66,07,66,08,06,07,8F3E 
220 DATA CA,DO.F8,A2,04,66,06,66,07,CA,DO,F9.A9,03,25,06,9680 
225 DATA 06,05.06,05,18.65,05,85,06.AO,02.B9.06,00.91,02.99D3 
230 DATA 83,10,F3,A5,02,18,69,03,85.02,A5,03.69,00.85,03,9EAE 
235 DATA A9.00.A6,04,85.04.A8,60,A4,04,4C,82,70,A5,00,18,A435 
240 DATA 65,OA,85,00,A5.01,69,00,85,01,CD,2F,70,FO,10,A9.A9D3 
245 DATA 00,35,OA.A8,SA,DI,00,F0,03,4C.4A,70,4C,E8,70,A5.B0A7 
250 DATA 00.CD,2E,70,BO.88,18,90,E6,55,55,55,55,55,55,55.B72B 
255 DATA 55,55,55.55,55,55,55,55,55.55,55,55,55,55,55,55,BC7B 
260 DATA 44.45,43,4F,4D,50,43,54,48,49,52.45,53,20,44,2E.C0D7 
265 DATA 20,56,61,73,69,6C,6A,65,76,e9,63.20,35.20,6F,63,C64E 
27? DATA 74,6F,62,72,65,20,31,39,38,35,00,AO,00,40,41,BF.CB41 
275 DATA AD.2A,72,85,00,AC,2B,72,84,01,85,02,AE,2D,72,86,D137 
280 DATA 03.A2,07,A9,00,95,03,CA,DO,F9,AO,02,B1,02,99,06,07AB 
285 DATA 00,88,10,F8.20,4A,73,A4,04,B9.05,00,C9,00,F0,44,DD7B 
290 DATA C9,18,F0,37,A6,09,C5,01,F0,2B,18,69,40,AO,00,91,E408 
295 DATA 00.A5,00,18.69,01,85,00,A5,01,69,00,85,01,CD,2F,E845 
300 DATA 72,F0,1E,A5,0A,C9,3F,F0,3A,A4,04,C8,C0,04,F0,BA,F084 
305 DATA E6,04,18,90,C2,18.69,CO,18,90,D2,20,FO,72,18,90.F7BD 
310 DATA E8,1B,90,64,20,F*E,72,A4,04,89,05,00,C9.1B,F0,16,FE91 
315 DATA C9,19.F0,28,C9,1A,F0,29,C9,1C,F0,2A,C9,1D,F0,28,0687 
320 DATA 18,90,09,18,90,52,20,IB,00,20,FE,72,A6,09,EO,01,0B8D 
325 DATA FO,03,18,90,98,18,6D,80,00,18,90,91,A2,40,18,90,1188 
330 DATA 37,A2,7F,18,90,32,A2,CO,18,90,2D,A2,FF,18,90,28,1862 
335 DATA A2,00 .E4,09 ,F0,03.86,09,60, A2,01,86,09,60, A4,04,1E0D 
340 DATA C8,CC,04,FO.37,E6,04,60,A5,00,CD,2E,72,80,2C,A5,259D 
345 DATA 0A,C9,3F,F0,03,4C,4A,72,20,FE,72,A4,04,B9,05,00,2BA0 
350 DATA 85,OA,8A,A4,OA,88,91,00,88,10,FB,A5,00,18,65,OA,313F 
355 DATA 85,00,A5,01,69,00,85,01,4C,7E,72,60,AO,02,B1,02,364A 
360 DATA 99,06,00,88,10,F8,20,4A,73,60,18,90,40,EA,26,06,3884 
365 DATA 26,05,CA,D0,F9,A2,03,26,06,CA,D0,FB,A2,04,26,07,42AB 
370 DATA 26,06,CA,DO,F9,A2,04,46,07,CA,D0,FB,A2,02,26,08,49C4 
375 DATA 26,07,CA,DO,F9,46,08,46,08,A5,02,18,69,03,85,02,4ED2 
380 DATA A5,03,69,00,85,03, AO, 00, A6,04,84,04,60, A9,00,85,53CB 
385 DATA 05,86,04,A2,06,18,90,B6,55,00,00,00,00,00,00,00,56B5 


10 A=i7000:F=f7398 :L=100 :REPEAT: FOR A=A TO A+15 :READ Ct 
20 K=VALC#"+Ci) :S=S+K+65536*(S+K>65535) : IF A<=F THEN POKE A,K 
30 NEXT:READ Di : IF S=VAL(*i*+D«) THEN L=L+5:UNT1L A>F:END 
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ERILIST 


M algré tout le soin que la rédaction de THEORIC apporte à la vérifica¬ 
tion des programmes publiés dans la revue, il subsiste quelques sour¬ 
ces d'erreurs possibles qui font qu'un programme peut ne pas fonc¬ 
tionner normalement. Grâce à VERILIST, ce risque est désormais fortement 
réduit ! 


Un bug caché dans une arbores¬ 
cence d'un gros programme risque 
toujours de passer inaperçu, malgré 
VERILIST... Voilà, nous annonçons 
la couleur et avouons que, pour une 
erreur de conception ayant échappé 
au contrôle rigoureux effectué par la 
rédaction, ce programme ést... inu¬ 
tile ! Mais, pour le reste, lisez plutôt 
ce qui suit ! 

Quelles sont les sources d'erreurs 
possibles ? 

La fabrication de la revue peut, mal¬ 
gré le soin qu'on y apporte, être cou¬ 
pable : un coup de ciseaux malheu¬ 
reux lors de la mise en page d'un lis¬ 
ting et le voilà amputé de quelques 
caractères ; une bavure lors de l'im¬ 
pression et on ne sait plus si tel 
caractère est un I ou un I, un O ou 
un 0... Mais la source d'erreur la plus 
importante reste encore la saisie... 
De longues heures devant un écran 
à taper le bel utilitaire proposé par 
THEORIC peuvent être génératrices 
de «Syntax error» incongrues et 
inexplicables en apparence. Et pour¬ 
tant, elles existent ! 

VERILIST (tel Zorro) va arranger tout 
cela ! Ce court programme n'est en 
fait que la routine LIST de L'ATMOS, 
modifiée pour afficher derrière cha¬ 
que numéro de ligne une somme de 
contrôle. Un simple octet erroné ou 
déplacé et cette somme sera diffé¬ 
rente (regardez, pour vous en con¬ 
vaincre, l'exemple 2 par rapport au 
témoin n° 1 ). 

Dès le numéro 34 de THEORIC (pour 
vous laisser le temps de taper ce lis¬ 
ting) et à chaque fois que cela sera 
possible, les listings que nous publie¬ 
rons pour l'ATMOS (hélas pas pour 
ORIC-1 ni TELESTRAT, du moins 
pour le moment) seront listés avec 
VERILIST. 



10 A=#B300:F=IB3E6:L=100 :REPEAT: FOR A=A T0 A+15 :READ Cf 
20 K=VAL(‘i'+C»):S=S+K+65536*(S+K>65535): IF A<=F THEN POKE A,K 
30 NEXT.'READ D< : IF S=VAL<T+M) THEN L=L+5:UNT1L A>F:END 
40 PINGlPRINT’Erreur liqneM 

100 DATA 20,16, C8,4E,F2,02,20, E8,00,20, E2, CA, 20, B3,C6,EA, 0797 
105 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,A9,FF,160B 
110 DATA 85,33,85,34,A0,01,B1,CE,F0,56,20,62,C9,C9,20,D0,1DE6 
115 DATA 0E,4E,DF,02,AD,DF,02,10,FB,20,62,C9,4E,DF,02,C8,24FE 
120 DATA B1,CE,AA,C8,B1,CE,C5,34,D0,04,E4,33,F0,02,B0,30,2E24 
125 DATA 84,B8,48.20,F0,CB,68,20,C5,E0,8A,48,20,C0,B3,68,367D 
130 DATA AA,EA,EA,A9,20,A4,B8,29,7F,20,D9,CC,C8,F0,11,B1,4007 
135 DATA CE,D0,1E,AS,B1,CE,AA,C8,B1,CE,86,CE,85,CF,D0,A4,4AF7 
140 DATA 2C,F2,02,10,01,60,20,F0,CB,20,2F,C8,68,68,4C,A8,513E 
145 DATA C4,10,D6,38,E9,7F,AA,84,B8,A0,00,A9,E9,85,18,A9,59E6 
150 DATA C0,85,19,CA,F0,0D,E6,18,D0,02,E6,19,B1,18,10,F6,61A9 
155 DATA 4C,A3,B3,C8,B1,18,30,AD,20,D9,CC,4C,B3,B3,04,EA,6A1E 
160 DATA A9,20,20,D9,CC,A9,28,20,D9,CC,A0,03,A2,00,8A,51,7162 
165 DATA CE,8C,BE,B3,1B,6D,BE,B3,C8,AA,B1 ,CE,D0,F0,20,C5,7BB9 
170 DATA E0, A9,29,20, D9 ,CC, 60,00,00,00,00,00,00,00,00,00,7F90 


Mode d'emploi 

— Taper VERILIST, le sauvegarder, 
faire RUN puis 

— CSAVE "VERILIST",A # B300, 
E#B3E6 (il utilise l'espace HIRES, 
donc rester impérativement en mode 
TEXT tant qu'il sera en mémoire...) ; 

— Le listing du programme BASIC 
à vérifier étant en mémoire, taper 
CALL # B306 : les lignes apparais¬ 
sent à l'écran suivies de la somme 
de contrôle. Si vous possédez une 
imprimante, tapez CALL # B300 pour 
obtenir le listing. Comparez avec le 
listing publié dans THEORIC. 
ATTENTION ! Lorsque vous effec¬ 
tuez la saisie d'un listing de THEO¬ 
RIC, ne tapez surtout pas les nom¬ 
bres entre parenthèses situés der¬ 
rière les numéros de lignes. 


Exemple 1 

40 (188) ADRMB300 
50 (201) FORN=I9500TO#95E6 
60 (152) POKEADR,PEEK(N) 

70 (83) ADR=ADR+1:NEXT 
100 (15) FORNMB300TOIB3E6 
200 (116) 1FPEEK(N)=I95THENP0KEN,IB3 
300 ( 152) NEXT# 


Exemple 2 

40 (188) ADR-IB300 
50 (204) FORN=#9500TO#95F6 
60 (152) POKEADR.PEEK(N) 

70 (83) ADR=ADR+1:NEXT 
100 (15) FORN=IB300TOIB3E6 
200 (116) IFPEEK(N)M95THENPOKEN,IB3 
300 (152) NEXT# 
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SONDAGE MENSUEL THEORIC 
La Haie de Pan 
35170 BRUZ 

Inscrivez vos remarques et suggestions ci-dessous : 

Matériel utilisé :_ 

(facultatif) Nom :_Prénom :_ 


Adresse : 



r 


PETITES ANNONCES 


La plaça réaervée aux patltas annonças est 
limité» En conséquence. celles-ci passant 
dans laur ordra d'arrivé». Par contra. I»s patl¬ 
tas annonças farfaluas sont systématlque- 
mant rejetées... Damima, commall ast pau 
probabls qu’il axlsta das "généraux dons 
taurs" dp matérlals ou da loglclals. las patl¬ 
tas annonças faisant appal à cas philantro- 
pas n» saront Inséréas qua si la plaça libra 
la par mat 

Saront rafuaéas toutoa las annonças visant 
è vandr» ou échangar das listas ou copias da 
loglclals non garantis "d'orlglna", ainsi qua 
tout» annonça Incitant au plratags. 

En conséquanca. réfléchissai bian avant 
d'anvoyar vos taxtas. 

Las patltas annonças doivent impérativement 
nous parvenir sur Is grilla (découpée ou pho¬ 
tocopié»). la taxta étant rédigé è raison d'un 
caractère par casa. 

Enfin, tout» annonça non accompagné» da 

timbras na sera pas Inséré». 

Vends ATMOS ♦ monit. mono +magnéto + stylo 
opt. ♦ carte mère ♦ 70 jeux + livres : 200 F. Tôl. 
30.55.05.96 (le so<r). 

Cherche schéma matriçage davier ORIC/ATMOS 
ou achète ATMOS HS pour récup. LARUE - 33. 
rue des Palurins - 54280 Seichamps 


ATMOS/ORIC 1 + Jasmin + MCP40 ♦ easy text ♦ 
origraph ♦ multifich ♦ copytel ♦ jeux + Théorie : 
3500 F. ATMOS + moniteur N/B : 800 F. Tél. 
1.30.50.99.14. 

Vends Télestrat juin 86. microdisc ♦ disquettes, thé¬ 
orie : 3000 F. Grégory KURZ - 14. rue GaJIieni - 
92100 Boulogne - tél. 1.46.21.33.12. 

Recherche logiciel de gestion protefeuille. Actions 
pour ATMOS et notice pour mission Delta. Tél. 
57.42.17.23 le soir. 

Vends ATMOS + adapt. N/B ♦ manuel ♦ 1 livre pro¬ 
grammes * 10 K7 : 500 F à débattre Nicolas - tôl. 
42.87.10.11. 

Cherche contact pour échange ou achat de jeux 
pour ATMOS. Demander Benjamin au 48.26.26.27 
après 18h00 (Charost. prox. bourges). 

Cherche Forth deTansoft, scrabble, lancelot * ma¬ 
nuel d'utilisation. Echange contre 5 jeux, chacun 
sur disquette Jasmin. M. LAUX Gilles - 3. allée des 
coquelicots - 57310 Guérange. 

Vends ATMOS ♦ SEDORIC ♦ MCP40, 20 dis¬ 
quettes doc. livres astuces. TBE. nbx jeux Théorie : 
2500 F. Tél. 48.44.80.08. 


Vends disk maître SEDORIC + manuel : 1 50 F. Vor- 
text (K7 d'origine) : 100 F. P LECLERC - 5. bis me 
carnot- 95170 Deuil La Barre. 

Vends 30 jeux ORIC (très bien). Poss. vente à l'uni¬ 
té. Environ 45 F l'un. Tél. 8055.69.31 après 18h30. 

Vends ORIC/ATMOS complet ♦ jasmin 2 + modula¬ 
teur Tunb + livres + rev. Théorie : 2500 F. BEAUS- 
SIER J.-Marc - tél. 60.17.64.74 après 18h00 - 
Torcy. 

Vends pour ATMOS alim secour ♦ régul. charge K7 
+ DK BD disk neuf 1053 cédé : 800 F TPS. POU- 
JADE CJP-Les Séracs-28410 Bu. 

Vends ATMOS ♦ modulateur N/B intégré » péritel ♦ 
câbles ♦ manuel + 8 K7 (Aigle d'or. Dambuster, 
Xemon 1...), le tout : 990 F. Tél. 37.41.90.51. 

Vends ORIC/ATMOS + interface N/B ♦ péritel ♦ câ¬ 
bles, le tout en TBE : 600 F. Tél. 93.39.55.79 après 
19h00. 

Cède les 800 log. Jasmin-SEDORIC (cause vends 
Jasmin) : 10 F/prog. Saint-Hubert Antoine - 18. me 
des Huches - 21800 Quetigny. Rep. assur. 

Achète revue Microric (numéro 6 à 10), écrire à Flo- 
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Notez les articles de ce numéro selon les critères suivants 


0 : ne me concerne pas 
2 : intérêt moyen 
4 : très intéressant 

Opinion globale sur ce numéro : 


1 : ne m'a pas intéressé 
3 : intéressant 
5 : passionnant 


• Actualité 

• Vitrine du logiciel 

• Gestion de canaux (Télestrat) 
•Trucs et astuces (Télestrat) 

• Fonction point (Télestrat) 

• Solfège 


• Contrôle d’un moteur 

• Le codage des réels 

• Fichier vidéothèque (Sédoric) 

• Warangal 

• Compactage 

et décompactage HIRES 


rent LAFABRIE - Ecole Publique Paul Garandeau 
- 16370Cherves-Richemont. 

HE N R IAT - 5. rue Guy Moquet - 91390 Morsang 
recherche logiciels disquenes Jasmin 1 ou 2 ou sur 
disquettes 5" 1/4. Ecrire TPR. 

Vends imprimante MCP40 exc. état + rouleaux pa¬ 
pier ♦ stylos * mode emploi + 7 prog graphiques : 
800 F à débattre Tél. 31.72.25.05 après 17h00. 


Vends ATMOS ♦ cordon magnéto ♦ interface Joy¬ 
stick + manuel ♦ K7 démo + 4 K7 jeux ♦ revues Thé¬ 
orie : 500 F. Tél 69.48.3324 après 19h00. 

Vends ATMOS. modulateur N/B. pôntel. revues, li¬ 
vres. quelques logiciels, peu servi : 850 F. (62) tél. 
21.52 49 36 

Vends livres au cœur de r AT MOS : 50 F. r assem¬ 
bleur de Lyonge : 60 F. Traitement de textes Vortex 


Loriciel : 60 F. Tél. 33 24 30 45 

Echange jeux vidéo Vectrex ♦ 3 K7 (très bon état) 
contre imprimante MCP40 et câble pour ATMOS. 
Tél. 46 87.82.85 après 18h00. 

Vends ATMOS » Microdisc 3" 1/2 + aJim ♦ péritel + 
cordon rac. minitel et téléchargement ♦ 100 prog. 
sur disk : simulât, vol. arcade : 3500 F. 

Tél. 60.76.2027. 



LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 



o Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

| SORACOM, La Haie de Pan -35170 BRUZ 


40 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 













































PETITES ANNONCES 


ORIC-1 cherche carie ECSI et le joystick II pour 
moins de 300 F. Demander Guillaume - tél. 
89.39.73.30 ou échange contre logiciel. 

Vends livre assembleur de l'ORIC PSI : 60 F. Pro¬ 
grammation du 6502 Sybex : 60 F. 9 microric : 15 F. 
Jajolet - 6, rue Mesnil - 61270 Aube. 

Vends Jasmin ♦ logiciels : 1700 F. Interface pro¬ 
grammable : 200 F. ORIC-ATMOS : 550 F Paulon 
Michel - tél. 46.83 08.40 poste 25.Q4 HR. H8. 

Vends Télestrat couleur + logiciels + pages vidéo¬ 
tex! + GP100 : 6500 F. Etienne Hervé - 54410 
Laneuveville DT Nancy. 

Vends livre TDOS : 50 F et collection Théorie (26) à 
l'unité ou groupé, prix à débattre. Jérôme au 
48.74.49.86. 

Cherche possesseur de microdisc pour échange 
en tout genre. Tél. 54.97.55.87 après 17h00. 

Vends ORIC-1 ♦ imp. GP50A ♦ logiciels ♦ revues : 
1500 F. Tél. 99.36.41.99. 

Achète interface RS232 pour ATMOS. Faire offres. 
Tél 49.79.84.69 HR soir. 

Vends pour Jasmin, 2 disquettes avec jeux et 35 
images digitalisées venant d'Apple (bonne qualité). 
Jérôme au 48.74 49.86. 

Cherche Théorie n° 1 à 20 et livres sur ATMOS. 
Tél. 93 45.98.92. M. Finka Jean - Le Vallon C. - Ch. 
du Pezou - 06400 Cannes. 

Vends ATMOS ♦ magnéto TBE + modulateur N/B + 
joystick » 100 prog. ♦ revues ♦ livres : 1500 F. Mou- 
gin P - Gouhelans - 25680 Rougemont - tél. 
81.86.96.12. 

Achète Jasmin 2 ou 2*. TBE (facture). Région pari¬ 
sienne uniquement. Tél. 47.51 86.68 après I8h00. 
92500 Rueil. 

Vends ATMOS ♦ conv. ORIC-1 + moniteur couleur 
+ nombreux livres + jeux : 2000 F. R. Jacquemin - 
tél. 1 39 89.92 06. 

Vends ATMOS ♦ microdisc ♦ disk ♦ K7 ♦ jeux ♦ li¬ 
vres ♦ revues ♦ 100 hebdogiciels ♦ mod N/B : 
2500 F. Tél. 61.70.41.25 HB. 

SEDORIC cherche contacts pour échanges divers. 
Christophe Razel - 49, Clos Cardinal - 54210 Ville 
en Vermois. 

Vends pour ATMOS : logiciels (Loritel, Tyrann...), 
interface joystick, prog. + joystick, imprimante 
GP50A ♦ adapt Pôritel. Tél. 98.97.81.01. 

Vends ROM ATMOS Vl-2 compatibilité complète 
avec VI -1 améliorée : 200 F. Fedngoni S. - 1, rue 
Marin - 95460 Ezaville - tél. 1.39.91.30.62. 

Programme 2716 à 27512 d'après Eprom ou fi¬ 
chier ORIC, Apple II. Atari ST. PC Prodorutti 
Walter - 51, av. Capeaux - 95400 Arnouville - tél. 
1.39.87.29.34. 

Vends pour Microdisc + SEDORIC nombreux pro¬ 
grammes sur disquettes (arcades, aventures, ré¬ 


flexions. éducatifs, utilitaires...). Documentations 
complètes fournies si nécessaire. Cauquil - 38. bis 
rue des Brus -81000 Albi - tél 63.54.73.63. 

Achète ou échange contre logiciels, notice Logo et 
Vortex et programmes éducatifs. J. Ferster - 301. 
rés. Sellier - 62300 Lens. 

Vends ATMOS + MICRODISC + SEDORIC ♦ disq. : 
2000 F Imprimante GPA100 : 1000 F. Théorie n° 1 
à 35 : 15 F pièce. Livres ORIC A NU. Forth - tél. 
42.67.74.76. 

ATMOS + SEDORIC cherche contact (Jasmin/SE- 
DORIC) sur disq. Thierry Dufourg - Imntzina Itxas- 
sou -64250 Cambo-Les-Bains. 

Vends ORIC-ATMOS ♦ environ 15 K7 ♦ Théorie 
(complet : manuel ♦ transfo * péritel) : 500 F ♦ port 
Tél. 31.93.40.30 le soir. 

Vends Télestrat » souris ♦ ROM ATMOS Echange 
prog. import et personnels sur Jasmin. 

Tél. 81.56 54 72 Girard B 

Réalisation, implantation de votre carte 'son sté¬ 
réo'. Travail soigné, pnx intéressant. 

Tél. 1.43.50 88 18 Philippe 19h00à22h00 

Vends ORIC-1 acheté décembre 85. TBE, peu ser¬ 
vi ♦ péritel ♦ magnéto * 55 jeux + 2 manuels : 
900 F. Pascal Leroy - tél. 47.09.15.09 urgent. 

Passionné d'ATMOS. cherche contact pour échan¬ 
ge de logiciels (K7 seulement). Bertrand Raux - 
31, Gde rue Billiers - 56490 Muzillac. 

Vends ATMOS ♦ péritel ♦ MCP40 + interf. (N/B) + 
inter, joystick * joystick * 230 logs. sur K7 ♦ magné¬ 
to ♦ livres, TBE : 1100 F. Modesti. 

Tél. 1.46.90.19.10. 

Vends ORIC-1 ♦ Microdisc + Sédoric ♦ MCP40 + 
moniteur couleur + dises * livres ♦ revues : 4000 F. 
Tél. 30.43.76.17 (Yvelines) après I8h00. 

Vends ATMOS (TBE) + magnéto + nombreux pro¬ 
grammes (environ 180) ♦ livre 'ORIC pour tous" : 
1400 F le tout. Tél 98.45.96.13 BresL 

SOS, cherche photocopie notice française ORIC- 
CALC (TANSOFT). Boussard - Les Asters Bl - av 
Infirmeries -13100 Aix-En-Provence 

Vends n* 1 à 19 de THE OR IC : 300 F. Tél. 
53.37.31.58 ou 75.94 99.08 

Rachète prix neuf lang. Forth pour ATMOS ou 
échange contre jeux. Vends aussi ces jeux : 30 F. 
Tél. 35.31.72.41. 

Vends ATMOS ♦ magnéto ♦ revues : 1 200 F le tout. 
Bruno Bacqué - 47. rue Lulli - Esc. B - 66000 
Perpignan. 

Recherche langage Forth sur ORIC. 

Tél 46.60.73.42 Alain. 

Achète 200 F carte mère pour ORIC-ATMOS. Tél. 
91.73.09 95 Demander Jean-Pierre à toute heure. 

Achète THEORIC 1, 2, 4. 5 prix selon l'état. Echan¬ 
ge logiciels (liste sur demande). Tél. 54.75.43.52 


après I9h00. demandez Rodolphe. 

Vends ATMOS + 100 logs K7 + 25 Théorie + livres 
+ docs + manuel + alim Péritel + adapt. N/B : 1300 F 
à débattre. Tél. 5362.2160 le WE. 

Adhérez au nouveau journal "Oric News' sur K7 
avec concours, trucs, etc. LARUE Christian - Ble- 
cheins -74160 Archamps. 

Achète lecteur de disques TTE Jasmin 2 ♦. Tél. 
89.81.44.87 après I9h00 Dans la journée au 
19.41.61.63.77.77 Mme Paternelle. 

Vends ORIC ATMOS complet ♦ K7 + livres ♦ Thé¬ 
orie : 1200 F. Pour ZX81. vends K7 ♦ livres : 300 F. 
Le tout TBE. M. VIBERT - 24260 Le Bugue - tél. 
53.07.12.26. 

Vends ATMOS : 800 F + 30 jeux originaux ♦ jeux 
pour ORIC 1, sur Paris. Tél. 47.83.46.12 demander 
Daniel. 

Achète interface Joystick programmable autre 
qu'Eureka en bon état. FULCONIS JF - Rocasoleil 
-04000 Digne. 

Vends 21 cassettes de jeux d'origine pour AT¬ 
MOS :pnxentre50et lOOF.Tél.96.32.03.76. 

Cherche l'Or. ATMOS + magnéto. Julien LAURE - 
7, rue Jean Laville - 71410 Sanvignes. (Envoyer 
envel. sefl-adressée + 2 x 2,20 F pour réponse). 

Vends moniteur mono orange (écran). Prix réel 
950 F. vendu : 550 F. Tél. 46.81.08.89. 

Cherche notice kit écran + ORIC mon. change con¬ 
tre log. SEDORIC ou paye poste. Thierry BOTHO- 
REL - 9, lot. Ty Baul - 29142 Le Faou. 

Vends ATMOS + moniteur (1-86) ♦ tous les cor¬ 
dons ♦ 2 jeux ♦ ORIC à nu, interfaces ORIC + 12 
Théorie : 1500 F. BALLARIN - tél. 61.89.17.73. 

Vends imprimante GP50A bon état ♦ modem 
DTL2000. Tél. 93.96.26.79. Demander J.-Pierre. 

Achète programmes utilitaires ORIC/ATMOS (lori- 
graph, multicalc, origraph.o optimum ou similai¬ 
res). BOIGET - tél. 1.42.03.86.31 ou 34.70.35.06. 

Vends ORIC/ATMOS : 500 F. Tél. 68.22.91.66 le 
soir après 19hOO. 

Cherche microdisc avec DOS pour environ 1200 F 
en bon état. Merci. Thomas GEMPP - 16. rue Bel- 
Air - 5ème étage - 1 3006 Marseille. 

Vends collection Microdisc N° 3 à 10 et Théorie 
N° 1 à 30. Faire offres. Possible échanger contre 
revues Amstrad. Tél. 1 64 57 11 .95. 

OR IC-Assistance. Je solutionne tous vos problè¬ 
mes. Renseignements contre 1 timbre. TH. CAR¬ 
TIER - 7, rue L. Thuliez - 75019 Paris. 

Vends ATMOS + Microdisc ♦ SEDORIC ♦ 100 logi¬ 
ciels sur disk + manuels ♦ revues + interface Joy¬ 
stick : 3200 F. Tél. 34.62.16.79 Yvelines. 

Vends jasmin + 10 disk + multifich : 1800 F. Tél. 
39 52.86.69 
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MOU U NS MICRO PEROU 
90. rue Regemortes 
03000 MOULINS 


LIBRAIRIE PRIVAT 
14. rue des Arts 
31000 Toula** 


GU ER UN-MARTIN & R LS - U BR AJ RIE 
82. pia» Drouet «fErkan BP 216 
51068 RBMS CEDEX 


ARPAJOU-ORGANISATION 
lipUadeUCahédraie 
64100 BAYONNE 


SHOP PHOTO 

33. rue Commandant Mouchott» 
75014 PARS 


L'OREILLE HARDIE 
Cente Commerçai Intermarthé 
04000 DIGNE 


LA PUCE SAVANTE 
8. Bd data Gara 
31500 TOULOUSE 


LIBRAIRIE M CH AUD 

9. rue du Cadran Sant Plana BP 360 

51062 REIMS CEDEX 


GES PYRENEES 
28, rue de Chassin 
64600 ANGLET 


FNAC FORUM 
1. rua fterre-Leacot 
75045 PARS CEDEX 01 


FNAC ETOILE - Carte MCE Etoile 
30. avanua Jean Madacin 
06000 NICE 


LIBRAIRIE MOLUT 

83 à 91. rua Porte-D^eaux 
33080 BORDEAUX 


HLF1 DIFFUSION - Jaamco SARL 
19, rua Tcndué da rEacarèna 
06000 MCE 


FNAC 

Cente ocmmardal Pdygcne 
33000 BORDEAUX 


LOGiiCRO 

MLarhar 

2 av. da Laon 
51100 REIMS 


27, rua Ambrane Paré 
53000 LAVAL 


MCRO-PYRENEES 

41. rua du 4 septembre 

65000 TARBES 

ORDI-2000 

Thierry COLENO 

127. air du Réganent da Bioorra 

65000 TARBES 


UBRAJUE A LA S0R80M4E 

SNC Seyrat 

23. rua Hôtel des Postas 

42.rueG»ffredo 

06000 MCE 

GES COTE D'AZUR 
Résrien» las Heures Claires 
454. rua des V acquerra» 

06210 MANDELItU 

U BR AJ RIE A LA SORBOMIE 
7. rua des Beiaas 
06400 CANNES 

PANORAMA DU UVRE 
LIBRAIRIE DES ECOLES 
Cente CcmmaroU CAP 3000 
06702 ST LAURENT DU VAR 


MK RO PO U S 

29. rua Pâlot da Montabert 

10000 TROYES 


U BR Al RIE DE L'UMVERSTTE 
12 A. rua Nazareh 
13100 AIX EN PROVENCE 

FNAC MARSEILLE 

Cente Bourse 

13231 MARSEILLE CEDEX 


SON VIDEO 2000 
MK:RO-AQUITAINE (Ex COCAS) 
31. Cours da TYsar 
33800 BORDEAUX 

INFORMATIQUE 2000 
pia» René De**: La Triangle 
34000 MONTPELLIER 

mkropus 

15. BdGambaBa 
34000 MONTPELLIER 

LIBRAIRIE SAU RAM PS 
La Tnangle 

Aléa Jules Mil au BP 9551 
34045 MONTPELLIER CEDEX 


FORUM DU LIVRE 
5. quai lamartne 
35000 RENNES 

hcro STORE 
3. place S» Germain 
35000 RENNES 

LIBRAIRIE DIALOGUES 
LOISIR L CULTURE 
rue de la ChafctM 
35000 RENNES 


U BR Al RIE FLAMMARION 
54. la Cwvwbere 
3. Marché des Capucins 

13231 MARSEILLE CEDEX 1 

MAU PETIT LIBRAIRIE 
U MYERS ALLEES 
144, La Canabâre 

13232 MARSEILLE CEDEX 01 

LA PUCE NFORMAT1QUE 

42. ma du Four Boiag-Neui Vieux Salon 

13300 SALON DE PROVENCE 


MTCRO-C INFORMATIQUE 
3. Bd da Beaanant 
35000 RENNES 

I.G.L MFORMATIOUE 
48. Bd delà Liber lé 
35000 RENNES 


VIDEO SERVICE HFORMAT1QUE 
GALLE 

9. place du Prtodent Coty 
37100 TOURS NORD 


□ BRAIRE ARMOIRES - JABALOT B. 

26. rua Sant-Ycn 
17000 LA ROCHELLE 

ftUL 

21 rue Atoert 1er 
17000 LA ROCHELLE 


GES CENTRE 
25. rua Cdette 
18000 BOURGES 

LIBRAIRIE DE L'UMVERSTTE 
17. rua delà Ubarto BP 1070 
21025 DUON CEDEX 

BERGERAC DIFFUSION PRESSE 
37. rua da la Résistance 
24100 BERGERAC 


CRUSSOL LIBRAIRIE 
lOBdGaldeGauie 
26000 VALENCE 


LIBRAIRIE LEGUE - AU UVRE DDR 
10. rua NoéJ Balay 
28000 CHARTRES 


Cente Commercial CATS 
37170 CHAMBRA Y LES TOURS 


LIBRAIRIE ARTHAUO 
23. Grande rua BP 187 
38000 GRENOBLE 


LIBRAIRIE HAREL 
11. rue Sert Jacques 
38000 GRE NOBLE 


LIBRAIRIE VI DONNE 

134. rua da la Répubfcque 
39400 MOREZ 


LIBRAIRIE PU ET AN 
3. rua du Ccmmaroa 
41000 BLOIS 


LIBRAIRIE LAUXEROtS 
40. rua Charles da Gaula 
42300 ROANNE 


LIBRAIRIE C. OU GU EL 
TECHMQUE ET CLASSIQUE 
8. pü» da la Bourse 
44000 NANTES 


U BR Al RIE D. LESTER 
13. b» rua du Cygne BP 124 
28007 CHARTRES CEDEX 


MCRONAUTE 

9. rua Urvoy de Sant Badan 

44000 NANTES 


K EM PER INFORMATIQUE 
72/74, av da U Ubéralon 
29000 QU IMPER 


LIBRAIRIE LOOOE 
Angle rua* J. d Arc al Royale 
45000 ORLEANS 


CASTELA SA 
LA MAISON DU STYLO 
20. place du Captola 
31000 TOULOUSE 


FNAC TOULOUSE 
UBRAIFVE DES CAOTOULS 
1 bs. piaoa Oocrtane 
31000 Tcxiouee 


RCHER LIBRAIRIE 
6. rue Chaparonreère 
49000 ANGERS 

DEPOT REGIONAL DE UBRAJRIE 
FORUM 

Cente CommaroM 
*L« HaHaa* BP 811 
49006 ANGERS CEDEX 


BERGER VICTOR 

NFORMATIOUE SERVICE 

LA GRANDE LIBRAIRIE 

13. IBiMSlGragM 

54000 NANCY 

68, rua Maréchal Foch 

66000 PERPIGNAN 

MICRO CENTER 


UBRAJRIE "A LA SORBONNE" 

Centra Commerçai 

F. SCHMITZBERGE R et C» 

place des Haies 

1Z rua St Orner BP 25 

54002 NANCY CEDEX 

67000 STRASBOURG 



LA BOUOIANERIE 

7. ru* du Pal 

56100 LORIENT 

670?TfrRi§BOURG CEDEX 

UBRAJRIE HAFTTMAMJ Paul 

24. Grande rua 

C.S.E. 

MchelLUTZ 

6. rueCtov» 

68025 COLMAR CEDEX 

57000 METZ 

AL SATU UNION 

4. pia» de la Réunon 

MCRO BOUTIQUE - ECONOMAISON 

68051 MULHOUSE 

1-3. ruePad Batançon. 

EU» da la Cahedraie 

UBRAJRIE G BISE Y 

57000 METZ 

aECTROMC CENTER 

35. pU» da la Réuricn 

68100 MULHOUSE 


16, rua Anoer Hôpital 

57100 THIONVUE 

GESLYON 

6. rua da TAkna 

69001 LYON 


FURET DU NORD 

15. pia» da Gaufle BP 255 

FLAMMARON UBRAJRE 

50002 ULLE CEDEX 

19. pU» BeAaoou 

69002 LYON 

MCROTEX - T A OU N 


22. pia» da la répubéqua 

59170 CROIX 

UBRAJRIE CAMUGU 

6. rua da la Chanté 

69002 LYON 

FURET DU NORD 


20. pia» da U Répufcéque 

59200 TOURCOING 

UBRAJRIE DECITRE 

6. pU» Beéecour 

69002 LYON 

FURET DU NORD 


21. rua du Queanoy 

59300 VALENCIENNES 

TOUT POUR LA RADIO 

66. Cours LafayaOa 

69003 LYON 


PROTE C PHOME 


9. ru* Si Jaoqu** 

58500 DOUAI 

ANTENNES PHNCAULT 

MtCROGESDON-FOCH 

25. rua da Séza 

69006 LYON 


39. 1 er routa da F«mes 

59600 MAUBEUGE 

UBRAJRIE NFORMATlQUE 

MONT AJ G 

FURET DU NORD - DE ROME & A 

18 et 20. av Jean Mabusa 

8. rua Pré Banmex 

74300 CLUSES 

QBEFIT JEUNE 

15. bs Bd Si Dem 

59600 MAUBEUGE 



FURET DU NORD 

75006 PARS 

1&BdBMlv 

62300 LENS 

FNAC ETOILE 

26. avenue da Wagram 

LENS MICRO INFORMATIQUE 

96 av Alfred Mae» 

75006 PARIS 


MKROPLUS -ELYSEES 26" 

62300 LENS 

28, av Champs 0yséaa 

75006 PARS 

I4CR0GICIEL 


Bernard Thomas 
a pia» P Bonhomme 

62500 St OMER 

MICRO PLUS 

Sté K BS ELECTRONS 

64. rua da la Chaussée tf Antn 

75009 PARS 

GES NORD 

9. rua da r Alouette 

62690 ESTREE CAUCHY 

UBRAJRIE PARSEME 

DE LA RADIO 

43. rua da Oràerqua 


QBERT JOSEPH U BRAIRE 

4a av des Etats-lins 

7S460 Pari*C*d**dO 

63000 CLERMONT FERRANO 

VTSMO 

84. Bd Baaumardofs 

UBRAJRIE LES VOLCANS 

75011 PARS 

80. Bd Gergovta 

63000 CLERMONT FERRAND 

CHOLET COMPOSANTS 

ELECTROtiQUE 

NEYRIAL 

2. rue Emèo-Casbür 

3. Bd Deacx 

63000 CLERMONT FERRAND 

75012 PARS 


GENERALE 

BASE 4 Librairie 

ELECTRON QUE SERVICES 

Eue GRENIER 

GES Parie 

ll.ruaSamorvat 

M « 76, l* L*dru Rortn 

64000 PAU 

75012 PARS 


U BR AJ FIE EYROLLES 
61. Bd Si Germer 
75240 PARIS CEDEX 05 

U BRAIRE DUNOO 

30. rua S»nl-SUp» 
75278 PARIS CEDEX 06 


CITIZEN B AND 
31. Bd da la Marna 
76000 ROUEN 

LIBRAIRIE LESTRNGANT 
123. rua Gai lederc 
76000 ROUEN 


ETS THOMAS 
MIC RO-J NE ORMA Tl QUE 
153. av data Répubéaja 
78500 SARTROUVILLE 


□BRAIRE DELOCHE SA 
21. rua data Réputéqua 
82000 MONTAUBAN 


U BRAIRE GAY 
4. ba» delà Liberté 

83000 TOULON 


LIBRAIRE AMBLARO 
10-14. PortM Maher an 
84000 AVIGNON 

RC ELECTROMC 
* MARTIN Robert 
53. rue Veto Hugo BP 12 
84100 ORANGE 


GIBERT J. LIBRAIRE 
9. rue Gambetta 
86000 POfTlERS 

MAJUSCULE POTTOU 
3. bs rua de rEperon 
86000 POITIERS 

U BRAIRE 
DE L'UMVERSTTE 
70. Gambesa BP 109 
86003 POITIERS CEDEX 


LIBRAIRE BARADAT 
8. plaoe St FVre 
87100 LIMOGES 


1D.L 

25. route de Mcntargo 
89300 JOIGNY 


MOCH AU -MARECHAL 
UBRARE DU LYCEE 
100. Grande-Rue 
91160 LONGJUMEAU 

LCV 

130. rue de Cartel Vientosaon sOge 
91360 EPWAY SORGE 


LOtSfTECH 
Cente Termmal 93 
93106 MONTREUIL 

OROIPLUS 
7. pU» Cameinat 
93600 AULNAY &90S 


BERTHET A SA 
UB. de la Grande Rue 
105, Grande Rue Ch de Gaulle 
94130 NOGENT SMARNE 

OROIVIDUa 
20. rue de Mcntreui 
94300 VINCENNES 

LADNER SA 

17S.av du Général Lederc 

94780 MAISON-ALEORT 


AVENASTE 
Square Cdorrfaa 
BP 94 

96021 CERGY CEDEX 


LIBRAIRE 
POCHOTHEQUE 
LECUT Rerre 
a rue de Sbénaad 
95120 ER MONt 






















































































CH *I V/£ 


Deux livres indispensables pour mieux utili 
ser les routines internes de l'ORIC-1 ou de 
l'ATMOS. 


L'auteur est un fervent passionné 
d'ORIC. Il a décortiqué avec soin les 
mécanismes des routines internes 
de l'ORIC-1 et de l'ATMOS. D’un 
contenu très dense, tout en restant 
à la portée des débutants, ces 
deux ouvrages proposent tour à 
tour des commentaires abondants 
sur le système interne, des exerci¬ 
ces et des programmes utilitaires 
mettant en application les principes 
acquis. 

Les prix publics de ces 2 tomes 
sont respectivement de 138 F et 
120 F. Nous sommes en mesure 
de vous les offrir à 99 F pièce 
ou,mieux, pour 149 F les 2 ! Une 
inestimable économie... 
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